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necessity. Multilevel filtering shows great promise as a quick accurate search 
algorithm. This approach applies a series of filters starting with high recall, low 
precision syntactic techniques, moving through a range of more computationally 
expensive high precision syntactic filters. 

The goal of this thesis is to develop a graphical user interface, using 
multilevel filtering, to make searching the CAPS component repository a less 
tedious task. The interface will make the retrieval process less error prone. The 
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I. INTRODUCTION 

As the size and complexity of the software base increases the need for an easy to 
use query entry, along with quick and accurate search algorithms, becomes a necessity. 
The goal of this thesis is to develop a graphical user interface to make searching the 
CAPS software base, or component repository, a less tedious task. It will use profile 
filtering and signature matching as proposed in [1] Improving Syntactic Matching For 
Multi-Level Filtering. The current prototype system has a limited user interface 
capability. This research will add a graphical user interface for the system. The interface 
will make the retrieval process less error prone. The user would not need to be an expert 
in how the software base works thus increasing the ease of use and productivity. Search 
metrics could be collected to aid future improvements to the search algorithms. 

A. FORMS OF REUSE 

When developing a software project many forms of reuse are commonly 
practiced. Most often they are in the form of libraries some are include with the compiler, 
or purchased separately like graphics, static and engineering packages. Finding specific 
modules in the package is accomplished using a simple text based search engine and a 
requirements list. This can be adequate for well -understood utilities like the 
transcendental functions supplied with the compiler. Searching for some intricate 
engineering functions, where lexical descriptions may vary widely, can be very time 
consuming. Libraries that are developed in-house, for use on a specific project, will have 
descriptions that are clear and concise to the author while other members of the team may 
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find them indistinct. The user can form a search string using terms that are familiar to 
them but not get a match on a module that would suit their needs. 

On large projects, common tasks could benefit from reuse if the source code could 
be found but it is often easier to rewrite than to search a large software repository for 
something that is not there or have the search miss the component that is sought. 

B. CURRENT SOFTWARE DEVELOPMENT PRACTICES 

As the size and complexity of software projects increase and budgets decrease the 
need for software reuse becomes critical. Software development project managers will 
specify that software reuse will be practiced as a way of decreasing the cost and 
increasing the reliability of the software to be developed as part of the proposal process. 
However, if reuse was not part of the development process in the past, during the actual 
development they will find that they are not able to benefit from reuse. Software 
developed without reuse as one of the design criteria will be difficult to transform into a 
reusable module making it less likely to be reused in future projects. Those with reuse as 
one of the design goals will be ready for reuse in future projects. One form of designing 
for reuse is a generic module that can be used in a variety of instances without 
modification. An example is a generic sorting routine that can sort any standard data type, 
while a non-generic routine would sort one data type. The need to make even simple 
modifications to a module may eliminate it from being reused in future projects. When 
modifications are required to reuse a module, the possibility of introducing errors is very 
likely. Assumptions can be made by the original author in writing the module that are not 
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known or understood by those making modifications, thus introducing errors. As the 
module evolves over time, the module becomes a disaster waiting to happen. 
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II. BACKGROUND 



Some previous works in software engineering and search techniques are presented 
here as a background for the research presented in this thesis. 

A. CAPS 

Computer Aided Prototyping System (CAPS) automates the early design phases 
of developing embedded systems that have strict real time constraints. CAPS represents a 
working environment consisting of development tools that help systems analysts and 
programmers to automate the design and implementation of rapid prototypes for hard real 
time embedded systems [2], These tools include an execution support system; syntax 
directed editor, graphical editor, and automatic constructors for scheduling and control 
code, automated integration of ADA modules, and the framework for the inclusion of 
components from a software base. 

Prototyping in CAPS consists of creating the PSDL description of the system 
design. This is accomplished with the graphical editor [3], used to create the PSDL 
skeleton, and the syntax directed editor, that is used to flesh out the skeleton. The PSDL 
description is then translated into an ADA package that is a driver for the atomic 
operators. A static scheduler finds a schedule for the time critical operators and produces 
an ADA package that contains the schedule for the time critical operators that is 
represents as an ADA task. The dynamic scheduler produces an ADA package for the 
non-time critical operators. The software base is a repository for reusable components 
that can be used for the atomic operators. If a reusable component cannot be found the 
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developer either writes it or decomposes it in an effort to find a reusable component. 
CAPS will compile and execute the prototype. The prototype is then modified in response 
to the users’ input. After the users accept the prototypes demonstrated functionality the 
developer will port the prototype to the target hardware and operating system. 

There are two places in CAPS that can benefit from reuse, the construction of the 
atomic ADA operators in the prototype and the final optimized versions that will make up 
the delivered product. 

B. PSDL 

The Prototyping Description Language (PSDL) [4] is used to specify the 
prototypes in CAPS. This language has data flow like semantics containing operators that 
communicate via data streams. PSDL programs have two kinds of objects, abstract data 
types and abstract state machines. The data streams carry values of a fixed abstract data 
type. Formally, the PSDL model is that of an augmented graph G = (V,E,T(y),C(y)) 
where V is the set of vertices, E is the set of edges, T(v) is the maximum execution time 
for each vertex v, and C(v)is the set of control constraints for each vertex v. Each 
vertex is an operator and each edge is a data stream. 

An Operator is either a function or a state machine. When an operator fires, it 
reads the input data stream and writes zero or one date object to its output streams. The 
output depends only on the current set of input values. For state machines, the output 
depends on the current set of input values and a finite number of internal state variables. 
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Operators are either atomic of composite. Atomic operators can not be 
decomposed any further and are implemented in a programming language. Composite 
operators are constructed from PSDL components with a lower level of abstractions. This 
continues until the atomic operator is reached. Figure 1 illustrates the decomposition of 
the PSDL operator in to two atomic operators. 




A data stream is a communications link between two operators. Each stream 
carries a sequence of data values from the produce to the consumer. There are two types 
of data streams, data flow streams and sampled streams. The data flow stream can be 
though of as a FIFO queue where data values are neither lost nor replicated. A sampled 
stream can be thought of as a cell that contains one value that is updated as the producer 
generates new values. 
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The PSDL specification for a component contains the information needed for 
analyzing and finding reusable independent objects that are contained in the software 
base. A PSDL specification is independent of the computer language that is used to 
implement a component making it ideal for query and tag specification. 

C. TEXT SEARCH 

Text queries are based on keyword matching. The query is specified as a set of 
keywords. The software base is searched for the given keywords. Any components that 
match are returned as candidates for the query. For a software base with a large number 
of components, if the user includes too few keywords they are overwhelmed by the 
number of candidates. If they use too many keywords, they miss the component because 
an exact match is not found. An improvement to this technique is to use a faceted 
approach [5] where keywords are selected from predefined keywords in a faceted list. 

The faceted list is a predefined set of keywords that are constructed by experts and 
are designed to best describe the component. This list must be continually updated as new 
components are added to the software base. To facilitate the maintenance of the software 
base on large projects a full time librarian is required. This is an added cost for the 
project. The fidelity of the faceted list is a function of how well the users and librarian 
associate the functionality of a component with the keywords that are selected. 

D. SYNTACTIC MATCHING 

Syntactic matching uses non-behavioral component information, such as a 
keyword list, package declaration or PSDL specifications [6]. If a query component has 
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the same interface specification as one from the software base then the components may 
match. Components with dissimilar interface specifications will not match. These 
components can be eliminated from consideration as a candidate. This method can be 
used to quickly eliminate candidates from the search that can not be a match. This leads 
to a multi-level filtering [7] approach which is organized as a series of increasingly 
stringent filters that pass only candidates that are an approximate match to the query. 

E. PROFILE FILTERING 

A profile [6] is a sequence of numbers that describes how the types 1 associated 
with an operation are organized. For a query to match a component in the software base 
they must have matching profiles. The profile of an operation is a sequence [6] of 
integers, defined as follows: 

1 . The first integer is the total number of occurrences of types. 

2. If the total number of type groups, N, is greater than 0, then the second to 
(1 + N)‘ h integers are the cardinalities of the type groups, in descending order. 

3. The (2 + N) ,h integer is the cardinality of the unrelated sort group. 

4. The (3 + N) ,h integer is: 

0 if the value type is different from any of the argument types; and 

1 if the value type belongs to some type group. 



1 Note that the dissertation used the words sort and type interchangeably. For clarity, only 
type will be used. 
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By calculating, a profile for each component in the software base, like 
components can be placed into a common partition [6]. When searching for a query it is 
only necessary to search the partition that contains components with profiles that match 
the queries profile. All components in other partitions have been eliminated as candidates. 
This is a fast process that is well suited for the early stages of multi-level filtering where 
low precision is acceptable and the main goal is to prune the number of candidates for 
latter high precision high cost filters. 

Improvements to increase the resolution of profile filtering have been suggested 
[1] such as adding more properties to the profile using properties that can be measured 
with more possible values. By increasing the resolution, we also increase the number of 
profiles, thus reducing the number of candidates that pass this lever of filtering. 

F. SIGNATURE MATCHING 

The signature of a module [8] [6] is a triple ( S,N,X ) where S is the set of types 2 
that appear in the operation signature in X, N is the set of operation names that appear in 
the operation signature in X, and X is a set of operation signatures. An operation 
signature is a triple containing an operation name, a sequence of input types, and an 
output type. This definition assumes each operation signature has exactly one output. 

A signature match exits if there is a mapping between the query operations and 
types to the candidate operations and types. A partial signature map [6] is one that does 



2 Note that the class notes use the term sort instead of type. In the interest of continuity 
sort was changed to type. 
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not map all of the queries operations. A full signature map successfully maps all of the 
operations. 

G. SOFTWARE BASE 

The software base is the repository for the reusable components in CAPS. The 
software base must be structured [9] so that it will support the automatic retrieval of 
components based on their specifications. The architecture must support syntactic 
matching and handle variable numbers of type attributes. 
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III. DESIGN AND CONCEPTS 



The design goal is to have a Graphical User Interface to the program proposed and 
written in [1] Improving Syntactic Matching For Multi-Level Filtering that will handle 
interactions between the user and the software base. This will include searches as well as 
maintenance of the software base. 

A. MULTI-LEVEL FILTERING IMPLEMENTATION 

Multi-Level Filtering was implemented [1] in ADA using the foreach extension 
that was add, as a preprocessor, by the Naval Postgraduate School Computer Science 
Department. It was assumed that all queries and component specifications would be 
written in PSDL. Extensive use of the CAPS PSDL library was used in handling the 
query as well as the software base component. All components will be stored in separate 
directories in the software base. A header file will be used to identify [1] all of the 
components that comprise the software base. Input to the filtering program was through a 
file that contains the query. The standard output was used to display the results. This 
placed restrictions on the implementation of the user interface that uses C++, the X11R6 
libraries, and the Motif graphs libraries in how the input and output are preformed. One 
goal was to minimize the modifications to the existing ADA code so input and output 
will be buffered to a temporary disk file. The internal representation of the software base 
components was recalculated each time that filtering was done. A modification was made 
to split the program into two distinct parts maintenance, which saves the initialized data 



13 



structures, and searching, which reinitializes the data structure from the those saved 



during maintenance. 



B. SOFTWARE BASE ORGANIZATION 

The software base is organized into component modules. All files for a 
component will reside in a separate component directory. No other directories are allowed 
in the software base. Each component will have a PSDL specification irrespective of the 
language of implementation. The PSDL specifications will be used in the filtering 
process. 




sb_header dat 



component_id_map dat 



haase_diagram dat 



profile_lookupjable.dat 



Figure 2 Software Base Directory Structure 

Figure 2 is an example of the structure of the software base. Set, Tan, and 
Sequence are component directories in the software base. The header file, sb_header.dat, 
is used to identify all of the components that comprise the software base. An example is 
shown in Figure 3. 
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sb header.dat 



Figure 3: Software Base Header Example 
Each entry contains a unique ID [1] followed by the component directory name. 
The ID will be used to identify the component in the data structure that internally 
represents the software base. The ID saves space and is easier to manipulate then a 
character based component name. In the original implementation, the component 
directories could be spread across networked file systems. In the interest of 
maintainability, the software base will be restricted to a single file system that can be 
exported to other machines. The pre-computed data structures for the internal 
representations of the software base components are stored in files that reside in the 
software base directory. 



C. DIALOG INTERFACE CONNECTIONS 

The graphical user interface to the software base was split into two dialogs. One 
dialog will be used for maintenance, allowing the addition of new components and the 
initialization of the data structures. The other dialog will search for components in the 
software base. 

Two conventions were implemented for starting the dialogs, one in the Motif 
tradition that is non-blocking and uses a callback routine to pass results on completion. 
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I he other a normal "C++" routine blocks until the user is finished. The subroutine returns 
a pointer to the results. 

void SearchDialog (Widget parent, XtCallbackProc callback); 
char* ModalSearchDialog (Widget parent); 
void MaintenanceDialog (Widge t parent); 

void ModalMaintenanceDialog (Widget parent); 

Figure 4: GUI Interface Routines 

Figure 4 shows the dialog subroutine calls where parent is the widget that the 
dialog will be display in and callback is the routine that will be called upon completion. 
The modal versions are blocking. A modeless version of the maintenance dialog was 
included for completeness. 

D. TEST PROGRAM 

A simple test program was written to test the graphical interface. The only 
functionality was to initiate the maintenance or search dialog and display the results. 




Figure 5: Test Display 

Pressing one of the buttons (Figure 5) will initiate a call to the appropriate dialog 
entry routine. The output is displayed on the standard output. 

E. SYNTAX DIRECTED EDITOR 

At the time that this thesis was written the CAPS Syntax Directed Editor (SDE) 
was unavailable. Creating a true SDE was beyond the scope of this thesis. A simple editor 
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was created for testing purposes to be used in making changes to the PSDL query/spec. 
The functionality that is supplied by this editor will be replaced by the CAPS Syntax 
Directed Editor. The interface to the CAPS SDE was unknown at the time that this editor 
was written so some modifications to other routines may be necessary. The subroutine 
SDE.C can be removed or used as the connection point for the CAPS SDE. 

void SDE (Widget parent, char ++ filename, char +*string); 

Figure 6: SD Editor Calling Convention 

Figure 6 is an example of the SDE subroutine entry point. Parent is the widget 
that the dialog will be display in. Filename is a pointer to the user-selected file name for 
the query. If the user canceled the editor or did not select a file name, then file name will 
be set to the NULL pointer. String is a pointer to the PSDL query that will be used in 
filtering. If the user canceled the editor or did not enter a query then the string will be set 
to the NULL pointer. 
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Figure 7: SD Editor 

Figure 7 shows the simple SD Editor display. The user can type the query directly 
into the edit window. Through the file menu (Figure 8) an existing query can be opened, 
saved, or saved under a different file name. The close menu entry will close the SD Editor 
and exit will exit the program. Simple editing capabilities are implemented through the 
edit menu (Figure 9). Cut copies the selected text to the buffer then deletes the selection. 
Copy put the selected text in the buffer. Past copies the buffer in to the current cursor 
location. 
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Open 


Ctrl+O 


Edit 


Ctrl+E 


Save 


Ctrl+S 


Save As 


Ctrl+A 


Close 


Ctrl+W 


Exit 


Ctrl+Q 



Figure 8: File Menu 



Cut 


Ctrl+X 


Copy 


Ctrf+C 


Paste 


Ctrl+V 



Figure 9: Edit Menu 



F. SEARCH DISPLAY 

The filtering process has three distinct parts, the PSDL query, profile filtering 
results, and the signature matching results. The dialog is partitioned into these three areas 
with their associated input. Figure 10 illustrates the search dialog box and its components. 
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Figure 10 Search Dialog 



20 




The query file name input box is placed above the query display. A file name can 
be entered; when the return key is pressed the file is opened and displayed in the query 
window. The query menu. Figure 1 1, gives the user the means to enter a new query, open 
an existing query, edit the current one, or save the current query. The search can be 
started by pressing the search button or through the search menu. Figure 12 illustrates the 
search menu. Usage information is provided through a help menu (Figure 13). 



New 


Ctrl+N 


Open 

Edit 


Ctri+O 

Ctrl+E 


Save 


Ctrl+S 


Save As 


Ctrl+A 


Close 


Ctrf+W 


Exit 


Ctrl+G 



Start CtrRT| 

Figure 12: Search Menu 



Maintenance 

Search 

Version 



Figure 13: Help Menu 



Figure 11: Query Menu 

The minimum profile ranking that must be exceeded to pass filtering is displayed 
above the profile filtering results. This window is where the user will input the desired 
value. The user may adjust the value up or down to tailor the filtering process to increase 
or decrease the number of components that pass profile filtering. 
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Figure 14: Profile Filtering Results Example 



Like the profile display, the signature match has both a rank and results window. 



The results window is also where the user will select the component that bests matches 
their needs. Figure 15 illustrates the results of a query. Filtering found two candidates 
with a rank greater than or equal to that set by the user, one in this case. The component 
name is tan with component ID 3001. To select this component the user will press the 
button next to the name. To view the other candidates the user can scroll down. If nether 



of the candidates meet the users needs they can reduce the rank and search again. The 



operator map is shown in Figure 16. 
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2 candidates have profile rank >= 1.00 

J /home/greg/Thesis/SoftwareBase/tan/PSDL_SPEC 

Component ID: 3001 

Profile Rank: 1.00 Wumber of signature match solutions: 1 
Solution 1 



Signature Rank: 1.0Q 
Semantic Rank: unknown 
Valid, Wot Expanded 
Op Map: { [Extent_Of , 



L. _ J — 1_ S-NJETl 






A 

J 



Figure 15: Search Results Example 

As the multilevel filtering technology evolves and levels are added, the modular 
design of the search dialog will allow it to encompass them by adding new windows for 
input and output. 
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Signature Rank: 1.00 
Semantic Rank: unknown 
Valid, Not Expanded 
Op Map: { [Extent_Of , 

Extent_Of ] , 

[ Is_Empty, 

Is_Empty] , 

[ I s_A_Member , 
Is_A_Member] , 

[Clear, 

Clear] , 

[ I s_Equal, 

Is_Equal ] , 

[ Is_A_Subset, 
Is_A_Subset] , 

[ Is_A_Proper_Subset, 
Is_A_Proper_Subset ] , 
[Copy, 

Copy] , 

[Add, 

Add] , 

[Remove, 

Remove] , 

[Union, 

Union] , 

[ Intersection, 
Intersection] , 
[Difference, 
Difference] ; } 

Type Map : { [set, 
set] , 

[item, 
item] ; } 

Branches: [] 



Figure 16: Example Signature Matching Results 



G. PROGRESS DISPLAY 

While the filtering process is running a progress display keep the user informed as 
to what is happening. Figure 17 is an example of the search progress. 
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Figure 17: Search Progress Display 



H. MAINTENANCE DISPLAY 

Maintenance is the addition of components to the software base or the 



initialization of the multilevel filtering representation of the components in the software 



base. The maintenance dialog aids the librarian in keeping the software base current. 



Figure 18 shows the maintenance dialog. 
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Figure 18: Maintenance Dialog 

The librarian enters a new PSDL spec with the SD Editor or opens one that was 
previously created. Figure 19 show the spec menu. New opens the SD Editor for input of 
a new PSDL specification. Open starts a file dialog to open an existing PSDL 
specification. Edit opens the current PSDL specification in the SD Editor. After the user 
has finished with the PSDL spec, it will be displayed in the top window. An alternate way 
of opening the PSDL file is to enter its name in the PSDL file window; a return is needed 
update the display. 
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New 


Ctrl+N 


Add Component File 


Ctrl+F 


Open 


Ctrl+O 


Clear Component Files 


Ctrl+C 


Edit 


Ctrl+E 


Clear All Files 


Ctrl+L 


Save 


Ctrl+S 






Save As 


Ctrl+A 


Figure 20: Component Menu 


Close 


Ctrl+W 






Exit 


Ctrl+Q 







Figure 19: Spec Menu 

The directory that the component will be stored in will be named after the PSDL 
specification file name. This will be created during the initialization process. The 
component files include any file that is needed to implement the component or document 
its function. These files will be copied to the component directory during initialization. 
Figure 20 is the component menu. Included in the menu are the following items: Add 
component file adds a file to the component list. Clear component files, removes all files 
from the component list. Clear all files clears both the PSDL spec and component list. 

There are two steps to the initialization process. First the component directory is 
created and the components files are copied into it. Then the header file is created using 
all of the directories found in the software base. The header file is used as input to the 
initialization of the data structures. Figure 21 is the initialization menu. Initialize 
directory sets up the component directory but does not initialize the data structures. 
Initialize software base will initialize the component directory, if needed, and the data 
structures. User information is provided through the help menu (Figure 22). 
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Initilize Software Base 


Ctrl+I 


Maintenance 


Initilize Directory 


Ctrl+D 


Search 


Version 



Figure 21: Init Menu 



Figure 22: Help Menu 

The following steps illustrates adding a component to the software base: 

1 . Setup the PSDL Spec. 

2. Add component implementation files. 

3. Initialize the component directory. 

4. Initialize the data structures. 

Note that steps one though three can be repeated for multiple components to set 
up the directories before initializing the data structures. 

While initialization is running a progress display keeps the user informed as to 
what is happening. Figure 23 is an example of the initialization progress display. 
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Figure 23: Maintenance Progress Display 
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IV. CONCLUSIONS AND FUTURE RESEARCH 



A. ACCOMPLISHMENTS 

The goal of software reuse will only be attained if the tools that insulate the user 
from the tedious job of finding suitable components are created. The tools must be easy 
to use, accurate, fast, and display results in an ordered manner. Tools are also needed for 
the addition of components to the repository. If the task of adding a component is to 
complex developers will not contribute to the repository. The Graphical User Interface, to 
Multilevel Filtering, developed in this thesis will aid the user in finding the reusable 
components that they are looking for and making additional components available for 
others to use. 

The Following Tools, running on the Linux operating system, have been used to 
implement the Graphical User Interface. 

• Linux version 2.0.27 

• Gnu C++ compiler version 

• GNAT ADA 95 version 

• GNU Source-Level Debugger 

• Data Display Debugger 

• XFree86 XI 1R6 

• MetroLinks Motif version 2.0 
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All of the development tools are available on the Internet for a verity of development 
platforms, with the exception of MetroLinks Motif. During the development of the 
interface, a suitable Motif replacement was unavailable. 

B. FUTURE RESEARCH 

As multilevel filtering evolves and grows, the additions should be incorporated 
into the underling search program. The method of passing data between the C++ and 
ADA code needs to be refined. 
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APPENDIX A C++ GUI SOURCE CODE 



Source code for the C++ for the Graphical User Interface. 



A. CALLBACKS.!! 

/* 

* $ Id : Callbacks. h,v 1.3 1998/01/16 00:17:34 greg Exp $ 

* 

* Callbacks. h — Software Base Search Interface 

* 

* Header file for the common callbacks. 

* 

* Naval Postgraduate School 

* January 13, 1998 

* 

* Written by Gregory L. Meckstroth 
*/ 



/* 

* FILEDLG_DATA structure is used to pass data to the file callback. 

* 

* parent: widget to use a parent for dialog construction. 

* fname_text: text widget for file name display. 

* text: text widget for query/spec display. 

*/ 

struct FI LEDLG_DATA 

{ 

Widget parent; 

Widget fname_text; 

Widget text; 

} ; 

void 

genericCB (Widget widget, XtPointer client_data, XtPointer call_data) 
void 

newCB (Widget widget, 

XtPointer client_data, 

XtPointer call data) ; 



void 

editCB (Widget widget, 

XtPointer client_data, 
XtPointer call_data) ; 



void 

openCB (Widget widget, 

XtPointer client_data, 
XtPointer call_data) ; 



void 

saveCB (Widget widget, 

XtPointer client_data, 
XtPointer call_data) ; 



void 

saveasCB (Widget widget, 

XtPointer client_data, 
XtPointer call_data) ; 



void 

textchangedCB (Widget widget, 
XtPointer client_data, 
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XtPointer call_data) ; 

B. CALLBACKS.C 

/ + 

* $ Id : Callbacks. C,v 1.5 1998/01/25 22:49:08 greg Exp $ 

+ 

* Callbacks. C -- Software Base Search Interface 

* Source code that implements the functionality of the file menu, in the search 

* and maintenance dialogs, through the use of callback routines. 

* Entry points: newCB, editCB, openCB, saveCB, saveasC, textchangedCB 

* 

* Naval Postgraduate School 

* January 11, 1998 

* Written by Gregory L. Meckstroth 

* 

*/ 

#include <stdio.h> 

#include <stdlib.h> 

#include <iostream.h> 

#include <Xm/Xm.h> 

#include <Xm/Text.h> 

#include <Xm/FileSB . h> 

#include "Gui.h" 

#include "Utils. h" 

#include "SDE.h” 

#include " PromptDialog . h" 

#include "Callbacks . h" 



/* 



Declarations for local functions. 



*/ 

static void 

fileokCB (Widget widget, XtPointer client_data, XtPointer call_data) ; 
static void 

filecancelCB (Widget widget, XtPointer client_data, XtPointer call_data) ; 
static void 

saveasokCB (Widget widget, XtPointer client_data, XtPointer call_data) ; 
static void 

editfile (FILEDLG_DATA * data, char **filename, char **string) ; 



/* 



* Global storage for the user selected directory. 
*/ 



static char * save_directory = NULL; 



/* 



Generic callback assumes client_data has a text string. This callback is for 
testing only 



void 

genericCB (Widget widget, XtPointer client_data, XtPointer call_data) 

{ 

if (client_data != NULL) 

{ 

printf ( "Generic callback [%s]\n", (char *) client_data) ; 

} 

} 

/* 
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* Open file dialog callback. Displays a file selection dialog to the user. 

* The data for this callback is passed through the client data as a pointer 

* to a FI LEDLG_DATA structure. User input is returned through the fileokCB 

* callback. The selected file will be opened and loaded into the query/spec 

* text widget. 

*/ 

void 

openCB (Widget widget, XtPointer client_data, XtPointer call_data) 

{ 

FI LEDLG_DATA Mata = ( F I LEDLG_DATA *) client_data; 
static FILEDLG_DATA ok_data; 

Widget fsdialog; 

Arg args [20] ; 

Cardinal n; 

XmString title = XmStringCreateSimple { "Open Query Specification" ) ; 

XmString dirmask = XmStringCreateSimple ("*. psdl" ) ; 

/* 

* Create the file selection dialog using a directory mask so that the user 

* only sees 
*/ 



n = 0; 

SETARG (args [n] , XmNdirMask, dirmask, n); 

SETARG (args [n] , XmNdialogTitle, title, n) ; 

fsdialog = XmCreateFileSelectionDialog (data->parent, "sbsdialog", args, n) ; 
if ( save_directory != NULL) 

Set_Res_String ( fsdialog, XmNdirectory, save_directory) ; 

XmStringFree (title) ; 

XmStringFree (dirmask) ; 

/* 

* Change the parent widget to the file selection dialog so we can close it 

* and not its parent. The rest of the data is pasted through. 

*/ 

ok_data . parent = fsdialog; 

ok_data. fname_text = data->fname_text; 

ok_data.text = data->text; 

/* 

* Add the callbacks to the OK and cancel buttons. 

V 

XtAddCallback ( fsdialog, XmNokCallback, 

(XtCallbackProc) fileokCB, 

(XtPointer) & ok_data) ; 

XtAddCallback ( fsdialog, XmNcancelCallback, 

(XtCallbackProc) f ilecancelCB, 

(XtPointer) fsdialog) ; 

XtManageChild ( fsdialog) ; 

} 

/* 

* Save file as callback. Displays a file selection dialog to the user. The 

* data for this callback is passed through the client data as a pointer to a 

* FILEDLG_DATA structure. User input is returned through the saveasokCB 

* callback. The query/spec text will be saved into the selected file. 

V 

void 

saveasCB (Widget widget, XtPointer client_data, XtPointer call_data) 

< 

FILEDLG_DATA Mata = ( FILEDLG_DATA *) client_data; 
static FI LEDLG_DATA ok_data; 

Widget fsdialog; 

Arg args [20] ; 

Cardinal n; 
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XmString title = XmStringCreateSimple ( "Save Query Specification"); 

XmString dirmask = XmStringCreateSimple ( "* .psdl") ; 

/* 

* Create the file selection dialog using a directory mask so that the user 

* only sees the PSDL specification files. 

*/ 

n = 0; 

SETARG (args [n] , XmNdirMask, dirmask, n) ; 

SETARG (args [n] , XmNdialogTitle , title, n) ; 

fsdialog = XmCreateFileSelectionDialog (data->parent , "Save Query Specification as 
args, n) ; 

XmStringFree (title) ; 

XmStringFree (dirmask) ; 

/* 

* Change the parent widget to the file selection dialog so we can close it 

* and not its parent. The rest of the data is pasted through. 

*/ 

ok_data . parent = fsdialog; 

ok_data . fname_text = data->fname_text ; 

ok_data.text = data->text; 

XtAddCallback (fsdialog, XmNokCallback, 

(XtCallbackProc) saveasokCB, 

(XtPointer) & ok_data) ; 

XtAddCallback (fsdialog, XmNcancelCallback, 

(XtCallbackProc) f ilecancelCB, 

(XtPointer) fsdialog); 

XtManageChild ( fsdialog) ; 

} 

/* 

* Save file callback. The data for this callback is passed through the client 

* data as a pointer to a F I LEDLG_DATA structure. The query/spec text will be 

* saved into the currently open file. If a file has not been opened the save 

* as callback is used to solicit a file name from the user. 

*/ 

void 

saveCB (Widget widget, XtPointer client_data, XtPointer call_data) 

{ 

FILEDLG_DATA Mata ^ ( FILEDLG_DATA *) client_data; 
char ^string = XmTextGetSt ring (data->text ) ; 
char *filename = gettext (data->fname_text ) ; 

if (filename == NULL) 

{ 

saveasCB (widget , client_data, call_data) ; 

} 

else 

{ 

if (string != NULL) 

{ 

savetext (widget , filename, string); 

XtFree (string) ; 

} 

XtFree ( filename ) ; 

} 



/* 

* The user changed the filename in the text window. This is activated when the 

* user types a carriage return and the text window has the focus. The data for 

* this callback is passed through the client data as a pointer to a 

* FILEDLG_DATA structure. The specified file will be opened and loaded into 

* the query/spec text widget. 

V 
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void 

textchangedCB (Widget widget, XtPointer client_data, XtPointer call_data) 

{ 

FILEDLG_DATA *data = ( FILEDLG_DATA *) client_data; 
char ^string; 

char * filename = gettext (data->fname_text ) ; 

/* 

* If user entered a file name try to display it in the text window. If the 

* user cleared the file name clear the text window. 

V 



if (filename != NULL) 

{ 

if (LoadFile ( filename, &string) !- -1 && string != NULL) 

{ 

XmTextSetString (data->text , string) ; 

XtFree (string) ; 

} 

XtFree ( filename) ; 

) 

else 

{ 

XmTextSetString ( data- > text, "") ; 

) 



/* 

* Create a new query spec callback. The data for this callback is passed 

* through the client data as a pointer to a FILEDLG_DATA structure. Open the 

* Syntax Directed Editor for the user to input a new query/spec. After the 

* editor is closed the file is saved in the file query. psdl . The query/spec 

* text display is updated. 

*/ 

void 

newCB (Widget widget, 

XtPointer client_data, 

XtPointer call_data) 

{ 

FI LEDLG_DATA *data = ( FI LEDLG_DATA *) client_data; 

/* 

* Pass null for the file name and text string so that the editor will 

* start with an empty specif ication . 

V 

char *string = NULL; 
char * filename = NULL; 

editf ile (data, &filename, &string) ; 



/* 

* Edit existing query spec callback. The data for this callback is passed 

* through the client data as a pointer to a FI LEDLG_DATA structure. Open the 

* Syntax Directed Editor for the user to input a new query/spec. After the 

* editor is closed the file is saved in the specified file or query. psdl if 

* one is not specified. The query/spec text display is updated. 

V 

void 

editCB (Widget widget, 

XtPointer client_data, 

XtPointer call_data) 

{ 

FILEDLG_DATA *data = ( FI LEDLG_DATA *) client_data; 

/* 

* get the file name and text string so that they will be loaded into the 

* editor when it starts. 

*/ 
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char ^string = XmTextGetString (data->text ) ; 

char + filename = XmTextGetString (data->fname_text ) ; 

editfile (data, ^filename, &string) ; 

} 

/* 

+ OK callback for the file selection dialog. The data for this callback is 

* passed through the client data as a pointer to a FI LEDLG_DATA structure and 

* the call data as pointer to a XmFileSelectionBoxCallbackStruct . The file 

* name is take from the call data and the file name text is updated and the 

* query/spec text display is loaded with the files contents. 

*/ 

static void 

fileokCB (Widget widget, XtPointer client_data, XtPointer call_data) 

{ 

FILEDLG_DATA *data = ( FILEDLG_DATA *) client_data; 
XmFileSelectionBoxCallbackStruct *ptr; 
char *string; 
char * filename; 

/* 

* Convert the file name to a character string. 

*/ 

ptr = (XmFileSelectionBoxCallbackStruct *) call_data; 

XmSt ringGetLtoR (ptr-> value, XmSTRING_DEFAULT_CHARSET, ^filename) ; 

/* 

* If the user did not select a file we are done 
*/ 

if (filename != NULL) 

{ 



/* 

* Save the directory for the next time the user wants to open a file. 

* This will make the task of entering multiple files from the same 

* directory easier. 

*/ 

if ( save_directory 1= NULL) 

XtFree ( save_directory) ; 

save_directory = getdirname ( filename) ; 

/* 

* Display the file name in its text widget. This is also the place we 

* save the file name for later use. 

*/ 

XmTextSetString (data->f name_text , filename) ; 

/* 

* Display the specification in its text widget. If their was an error 

* loading the file tell the user. 

*/ 



if (LoadFile (filename, &string) == -1) 

{ 

ModalWarningDialog (data->parent , "Error", "Error loading file"); 

} 



if (string 1= NULL) 

{ 

XmTextSetString (data->text, string) ; 
XtFree (string) ; 



/* 

* Take the dialog box off of the screen and free up its data 
*/ 
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XtUnmanageChild (data->parent) ; 

XtDestroyWidget (data->parent ) ; 

) 

/* 

* Cancel callback for the file selection dialog. 

V 

static void 

filecancelCB {Widget widget, XtPointer client_data, XtPointer call_data) 

{ 

XtUnmanageChild ( (Widget ) client_data) ; 

XtDestroyWidget ( (Widget ) client_data) ; 

> 

/* 

* OK callback for the save as file selection dialog. The data for this 

* callback is passed through the client data as a pointer to a FILEDLG_DATA 

* structure and the call data as pointer to a XmFileSelectionBoxCallbackStruct . 

* The file name is take from the call data and the query/spec text is save to 

* the file. 

*/ 

static void 

saveasokCB (Widget widget, XtPointer client_data, XtPointer call_data) 

( 

FILEDLG_DATA *data = ( FILEDLG_DATA *) client_data; 
XmFileSelectionBoxCallbackStruct *ptr; 
char *string = XmTextGetString (data->text) ; 
char * filename; 

/* 

* Convert the file name to a character string. 

*/ 

ptr = (XmFileSelectionBoxCallbackStruct *) call_data; 

XmStr.ingGetLtoR (ptr->value, XmSTRING_DEFAULT_CHARSET , Sfilename) ; 

/* 

* Take the dialog box off of the screen and free up its data 
*/ 

XtUnmanageChild (data->parent) ; 

XtDestroyWidget (data->parent ) ; 

/* 

* If the user did not select a file we are done 
*/ 



if (filename == NULL) 
return; 

/* 

+ Save the directory for the next time the user wants to open a file. This 

* will make the task of entering multiple files from the same directory 

* easier. 

*/ 



if ( save_directory 1= NULL) 

XtFree ( save_directory) ; 

save_directory = getdirname ( filename) ; 

/* 

* Display the file name in its text widget. This is also the place we save 

* the file name for later use. 

V 

XmTextSetString (data->fname_text, filename) ; 

/* 

* If the specification text is not empty save it into the file. 

*/ 
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if (string != NULL) 

{ 

savetext (data->parent / filename, string); 
XtFree (string) ; 

} 



/* 

* Edit new or existing query spec. This will be changed to call the syntax 

* directed editor ( SDE) from CAPS. 

*/ 

static void 

editfile ( FILEDLG_DATA * data, char ** filename, char **string) 

{ 

/* 

* Open the editor with the file name and specification so the use can make 

* changes . 

*/ 

SDE (data->parent, filename, string); 

/* 

* If the user did not save the specification we are done 
*/ 



if (*string == NULL) 

{ 

if (*filename != NULL) 

XtFree ( *filename) ; 
return; 

} 

/* 

* If the user did not enter a file name use the default 
*/ 



if (^filename == NULL) 



* filename = "query . psdl " ; 

savetext (data->parent, *filename, ^string); 
XmTextSetString (data->fname_text , *filename) ; 
} 

else 



savetext (data->parent, *filename, *string) ; 
XmTextSetString (data->fname_text , *filename) ; 
XtFree ( *f ilename) ; 

} 



/* 

* Display the specification in its text widget. 
*/ 



XmTextSetString (data->text, *string) ; 
XtFree ( *string) ; 



C. DISPLAYPROGRESS.H 



/* 

* $Id: DisplayProgress . h, v 1.4 1998/01/18 17:40:48 greg Exp $ 

★ 

* DisplayProgress . h — Software Base Search Interface 

* Header file for the progress display. 

* 

* Naval Postgraduate School 

* January 13, 1998 

* 

* Written by Gregory L. Meckstroth 
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/ 



void 

ini tilize_display (Widget parent) ; 
void 

clear_display (char *title); 
void 

home_display (void) ; 
void 

display_message (char ^message) ; 



D. DISPLAYPROGRESS.C 



/* 

* $Id: DisplayProgress . C, v 1.4 1998/01/18 17:40:48 greg Exp $ 

★ 

* DisplayProgress .C — Software Base Search Interface 

* 

* Source code for the progress display. 

* 

* Entry points: initilize_display clear_display display_message 

* 

* Naval Postgraduate School 

* January 11, 1998 

* Written by Gregory L. Meckstroth 
*/ 

#include <stdio.h> 



# include <Xm/Xm.h> 
#include <Xm/Text.h> 
#include <Xm/Form.h> 
#include <Xm/ScrolledW . h> 
#include <Xm/PushB.h> 



# include "Gui.h" 

#include "Utils. h" 

#include "DisplayProgress . h" 



/* 

* Declarations for local functions. 
*/ 



static void 

dismissCB (Widget widget, XtPointer client_data, XtPointer call_data) ; 



/* 

* The following widgets are global, to this routine, to minimize the effort in 

* interfacing the display routines to the ADA search code. 

*/ 



static Widget display_window = NULL; 
static Widget text_display = NULL; 

/* 

* Initilize the display widgets 
*/ 



void 

initilize^display (Widget parent) 

{ 



Widget dismiss_btn; 
XmString xmstring; 
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Arg args [20] ; 

Cardinal n; 

if ( text_display != NULL) 

return; 

/* 

+ Setup the display dialog 
*/ 

n = 0; 

SETARG (args [n] , XmNautoUnmanage , False, n) ; 

SETARG (args [ n] , XmNwidth, DIALOG_WIDTH, n) ; 

SETARG (args [n] , XmNheight, 1.5 * INFO_WINDOW_HEIGHT, n) ; 

SETARG (args [n] , XmNnoResize, False, n) ; 

display_window = XmCreateFormDialog (parent, "sbsdialog" , args, n) ; 

/* 

* Add button to the bottom of the dialog box 
*/ 

xmstring = XmStringCreateSimple ( "Dismiss' 1 ) ; 

dismiss_btn = XtVaCreateManagedWidget ( "sbslabel" , 
xmPushButtonWidgetClass, display_window, 

XmNlabelString, xmstring, 

XmNwidth, BUTTON_WIDTH, 

XmNheight, BUTTON_HEIGHT, 

XmNlef t Attachment , XmATTACH_FORM, 

XmNlef tOff set, 20, 

XmNrightAttachment, XmATTACH_NONE, 

XmNtopAttachment, XmATTACH_NONE, 

XmNbottomAttachment, XmATTACH_FORM, 

XmNbottomOf f set, 10, 

NULL) ; 

XmStringFree (xmstring) ; 

XtAddCallback (dismiss_btn, 

XmNactivateCallback, 

(XtCallbackProc) dismissCB, 

(XtPointer) display_window) ; 

XtManageChild (dismiss_btn) ; 

/* 

* Add the scrolled text window. This is attached to the top of the dialog 

* box and the top of the dismiss button. 

*/ 



n = 0; 

SETARG (args [n] , 
SETARG (args [n] , 
SETARG (args [n] , 
SETARG (args [n] , 
SETARG ( args [n] , 
SETARG (args [n] , 
SETARG (args [n] , 
SETARG ( args [n] , 
SETARG (args [n] , 
SETARG (args [n] , 
SETARG (args [n] , 
SETARG (args [n] , 
SETARG (args [n] , 
SETARG (args [n] , 



XmNeditMode, XmMULTI_LINE_EDIT, n) ; 
XmNeditable, False, n) ; 

XmNtraversalOn, False, n) ; 
XmNcursorPositionVisible, False, n); 
XmNlef tAttachment, XmATTACH_FORM, n); 
XmNlef tOf f set, 5, n) ; 

XmNrightAttachment, XmATTACH_FORM, n) ; 
XmNrightOf f set, 5, n) ; 

XmNtopAttachment, XmATTACH_FORM, n) ; 
XmNtopOf f set, 5, n) ; 

XmNbottomAttachment, XmATT AC H_W I DGET , n) ; 
XmNbottomWidget , dismiss_btn, n) ; 
XmNbottomOf f set, 5, n) ; 

XmNresizable, True, n) ; 



text_display = XmCreateScrolledText (display_window, "sbstext”, args, n) ; 
XtManageChild ( text_display) ; 



/* 

* Clear the display and change the dialog title. 
*/ 



void 
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clear_display (char *title) 

{ 

if (display_window != NULL && title != NULL) 

( 

Set_Res_String (display_window, XmNdialogTitle, title); 

) 

if ( text_display != NULL) 

XmTextSetString ( text_display, ,,M ) ; 

if ( ! XtlsManaged (display_window) ) 

XtManageChild (display_window) ; 

} 



/* 

* Scroll display to so first line is a the top of window 

V 

void 

home_display (void) 

{ 

if ( text_display != NULL) 

XraTextScroll ( text_display, -1000) ; 

} 



/* 

* Display progress messages and help information. 

*/ 

void 

display_message (char ^message) 

{ 

XtAppContext app_context; 

XtlnputMask mask; 

XmTextlnsert ( text_display, 10000, message); 

app_context = XtWidgetToApplicationContext ( text_display) 
while ((mask = XtAppPending (app_context ) ) ) 
XtAppProcessEvent (app_context, mask) ; 



/* 

* Callback to take the progress display off of the screen. 

V 

static void 

dismissCB (Widget widget, 

XtPointer client_data, 

XtPointer call_data) 

{ 

if (XtlsManaged ( (Widget) client_data) ) 

XtUnmanageChild ( (Widget) client_data) ; 

} 

E. GUI.H 



/* 

* $Id: Gui.h,v 1.3 1998/01/16 17:29:38 greg Exp S 

* Gui.h — Software Base Search Interface 

* 

* Header file of the common GUI definitions. 

* 

* Naval Postgraduate School 

* January 13, 1998 

* 

* Written by Gregory L. Meckstroth 

* 

V 



/* 
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+ Define the location of the software base. It is assumed that the location 
* will be static and that the CAPS system will be rebuilt for different 
+ systems. 

*/ 



#define SBROOT "/home/greg/Thesis/Sof twareBase/" 



/* 

* Define the size of the common widgets and buffers. 

V 



#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#define 



MAXBUFSI ZE 1024 
DIALOG_WIDTH 600 
DIALOG_HEIGHT 950 

INFO_WI NDOW_WI DTH ( DI ALOG_WI DTH-100) 
INFO_WINDOW_HEIGHT 250 
BUTTON_WIDTH 77 
BUTTON HEIGHT 33 



/* 

* Define a macro to set the Motif arguments. 

* Note: indent wants to move the increment of n to a separate line defeating 

* the standard Motif style. 

*/ 



#define SETARG (arg, name, value, n) XtSetArg (arg, name, value) ;n++; 



F. GUI.C 



/* 

* $Id: HelpMessages . h, v 1.3 1998/01/25 22:49:08 greg Exp $ 

* 

* Menu.h -- Software Base Search Interface 

* 

* Header file for the GUI menus. 

* 

* Naval Postgraduate School 

* January 13, 1998 

* 

* Written by Gregory L. Meckstroth 
*■ 

V 



/* 

* The first string is used as the help dialog title 
*/ 

static const char *maintenance_help_message [ ] = 

{ 

"Maintenance Help", 

" CAPS SOFTWARE BASE SEARCH \n", 

"\n" , 

" NAVAL POSTGRADUATE SCHOOL \n", 

" MONTEREY, CALIFORNIA \n", 

" January 11, 1998 \n", 

"\n" , 

"Initialize components in the CAPS software base. This dialog box \n", 
"displays the PSDL specif ication and component file list. The input \n", 
"consists of the component specification in PSDL and the component \n", 
"file list. The spec file name can be changed by typing the new name \n", 
"in the PSDL Spec window. After entering the file name press the enter \n" 
"key to update the spec display. \n", 

"\n", 

"Each component in the Software Base is stored in a separate directory. \n 
"After entering all files for a component the user can initialize the \n", 
"component directory structure by pressing the 'Init DIR' button or \n", 
"through the Init menu. After the component directory is initialized \n", 
"the use can enter another component. This can be repeated until all \n", 
"components have been entered. Then the Software Base must be \n", 
"initialized by pressing the 'Init SB' button or through the Init menu. \n 
"\n". 
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"All component files are copied to the component directory no user \n" , 
"files will be deleted. \n", 

" \n" , 

"The Spec menu allows the user to manage the PSDL query. \n", 

" New: Starts the Syntax Directed Editor to input a new query. \n", 

” \n" , 

" Open: Open an existing query file. \n", 

" \n" , 

" Edit: Starts the Syntax Directed Editor to edit the current query. \n 
" \n" , 

" Save: Save the current query. \n", 

"\n" , 

" SaveAs : Save the current query in a user specified file. \n", 

"\n" , 

" Close: Close the search dialog. Xn", 

"\n", 

" Exit: Exit the program. \n", 

"Xn" , 

"The component menu allows the user to manage the component file list. \n 
" Add Component files: \n", 

"\n", 

" Clear Component file list: Xn", 

’’Xn", 

" Clear all: Xn", 

" Xn" , 

"Buttons. Xn", 

"Xn" , 

"Dismiss: Close the maintenance dialog. Xn", 

"Xn", 

"Init DIR: Initialize the component directory. Xn", 

"Xn", 

"Init SB: Run the ADA initialization for the Software Base. Xn", 

" Xn", 

"Clear FL: Clear the file list. Xn", 

"Xn" , 

"Clear ALL: Clear file list and Component specification. Xn", 

(char * ) NULL 



/* 

* The first string is used as the help dialog title 

V 



static const char *search_help_message [ ] = 

{ 



"Search Help", 



CAPS SOFTWARE BASE SEARCH \n", 



"Xn" , 

" NAVAL POSTGRADUATE SCHOOL \n", 

" MONTEREY, CALIFORNIA \n", 

" January 11, 1998 Xn", 

"Xn", 

"Search and retrieval of components from the CAPS software base. This Xn" 
"dialog box displays the PSDL query, profile filtering and signature Xn" 
"matching results. The input consists of the query specification, Xn", 
"minimum profile rank and minimum signature rank. The user can change Xn" 
"the minimum rank by entering a new value in the appropriate text \n", 
"window. The query file name can be changed typing the new name in Xn", 
"the PSDL Query window. After entering the file name press the enter \n", 
"key to update query display. The query must be stored in a file for Xn", 
"the search routines to work. If the user does not supply a file Xn", 
"name the default query. psdl will be used. \n", 

"Xn", 

"After running the search the user can view the results and select \n", 
"the appropriate component by pushing the toggle button next to the Xn", 
"component name. Pushing the OK button will return the selected Xn", 
"component. Xn", 

"Xn", 

"The Query menu allows the user to manage the PSDL query. Xn", 

" New: Starts the Syntax Directed Editor to input a new query. Xn", 

" Open: Open an existing query file. Xn", 

" Edit: Starts the Syntax Directed Editor to edit the current Xn", 

" query. \n", 

" Save: Save the current query. Xn", 
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" SaveAs : Save the current query in a user specified file. \n", 

" Close: Close the search dialog. \n", 

” Exit: Exit the program. \n M , 

" \n" , 

"The Search menu allows the user to run the software base search. \n", 

" Start: Start the software base search. \n", 

M \n", 

"Buttons. \n", 

" OK: Exits the dialog and returns the selected component name. \n", 

" Search: Start the software base search. \n", 

" Cancel: Exit the dialog. \n", 

{char * ) NULL 

} ; 



/* 

* The first string is used as the help dialog title 
*/ 

static const char *version_message [ ] = 

{ 

"Version" , 

" CAPS SOFTWARE BASE SEARCH \n", 

"\n" , 

" NAVAL POSTGRADUATE SCHOOL \n", 

" MONTEREY, CALIFORNIA \n", 

" January 11, 1998 \n", 

" $ Revision: 1.3 $\n", 

" \n" , 

(char * ) NULL 

}; 

G. HELPMESSAGES.H 



/* 

* $Id: HelpMessages . h, v 1.3 1998/01/25 22:49:08 greg Exp $ 

* 

* Menu.h -- Software Base Search Interface 

* 

* Header file for the GUI menus. 

* 

* Naval Postgraduate School 

* January 13, 1998 

* 

* Written by Gregory L. Meckstroth 

* 

*/ 



/* 

* The first string is used as the help dialog title 

V 

static const char *maintenance_help_message ( ] = 

{ 

"Maintenance Help", 

" CAPS SOFTWARE BASE SEARCH \n", 

"\n" , 

" NAVAL POSTGRADUATE SCHOOL \n", 

" MONTEREY, CALIFORNIA \n", 

" January 11, 1998 \n", 

"\n" , 

"Initialize components in the CAPS software base. This dialog box \n", 
"displays the PSDL speci f ication and component file list. The input \n", 
"consists of the component specification in PSDL and the component \n" , 
"file list. The spec file name can be changed by typing the new name \n", 
"in the PSDL Spec window. After entering the file name press the enter \n" 
"key to update the spec display. \n", 

"\n" , 

"Each component in the Software Base is stored in a separate directory. \n 
"After entering all files for a component the user can initialize the \n", 
"component directory structure by pressing the 'Init DIR’ button or \n", 
"through the Init menu. After the component directory is initialized \n", 
"the use can enter another component. This can be repeated until all \n", 
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'•components have been entered. Then the Software Base must be \n", 
"initialized by pressing the 'Init SB' button or through the Init menu. \n 
"\n", 

"All component files are copied to the component directory no user \n", 
"files will be deleted. \n", 

" \n" , 

"The Spec menu allows the user to manage the PSDL query. \n", 

" New: Starts the Syntax Directed Editor to input a new query. \n", 

"\n", 

" Open: Open an existing query file. \n", 

"\n" , 

" Edit: Starts the Syntax Directed Editor to edit the current query. \n" 
"\n" , 

" Save: Save the current query. \n", 

"\n" , 

" SaveAs: Save the current query in a user specified file. \n", 

"Xn", 

" Close: Close the search dialog. Xn", 

"Xn", 

" Exit: Exit the program. \n", 

"\n", 

"The component menu allows the user to manage the component file list. \n" 
" Add Component files: Xn", 

"Xn", 

" Clear Component file list: Xn", 

"Xn", 

" Clear all: Xn", 

"Xn", 

"Buttons. \n", 

"Xn", 

"Dismiss: Close the maintenance dialog. \n", 

"Xn", 

"Init DIR: Initialize the component directory. \n", 

"Xn" , 

"Init SB: Run the ADA initialization for the Software Base. \n", 

"Xn", 

"Clear FL: Clear the file list. Xn", 

"Xn", 

"Clear ALL: Clear file list and Component specification. Xn", 

(char * ) NULL 



/* 

* The first string is used as the help dialog title 

V 

static const char *search_help_message [] = 

( 

"Search Help", 

" CAPS SOFTWARE BASE SEARCH \n", 

"Xn", 

" NAVAL POSTGRADUATE SCHOOL \n", 

" MONTEREY, CALIFORNIA \n", 

" January 11, 1998 \n", 

"Xn" , 

"Search and retrieval of components from the CAPS software base. This \n", 
"dialog box displays the PSDL query, profile filtering and signature \n", 
"matching results. The input consists of the query specification, Xn", 
"minimum profile rank and minimum signature rank. The user can change Xn", 
"the minimum rank by entering a new value in the appropriate text \n", 
"window. The query file name can be changed typing the new name in \n", 
"the PSDL Query window. After entering the file name press the enter Xn", 
"key to update query display. The query must be stored in a file for Xn", 
"the search routines to work. If the user does not supply a file Xn", 
"name the default query. psdl will be used. Xn", 

"Xn", 

"After running the search the user can view the results and select Xn", 
"the appropriate component by pushing the toggle button next to the \n", 
"component name. Pushing the OK button will return the selected Xn", 
"component. Xn", 

"Xn" , 

"The Query menu allows the user to manage the PSDL query. \n", 

" New: Starts the Syntax Directed Editor to input a new query. \n", 

" Open: Open an existing query file. Xn", 
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Edit: 



Starts the Syntax Directed Editor to edit the current Xn", 
query. \n", 

" Save: Save the current query. \n", 

" SaveAs: Save the current query in a user specified file. \n", 

" Close: Close the search dialog. \n" , 

" Exit: Exit the program. \n", 

" \n” , 

"The Search menu allows the user to run the software base search. \n", 

" Start: Start the software base search. \n", 

" \n" , 

"Buttons. \n", 

" OK: Exits the dialog and returns the selected component name. \n" , 

" Search: Start the software base search. \n", 

" Cancel: Exit the dialog. \n" , 

(char * ) NULL 

} ; 



/* 

* The first string is used as the help dialog title 
*/ 

static const char *version_message [ ] = 

{ 

"Version" , 

" CAPS SOFTWARE BASE SEARCH \n", 

"\n", 

" NAVAL POSTGRADUATE SCHOOL \n", 

" MONTEREY, CALIFORNIA \n", 

" January 11, 1998 \n", 

" $Revision: 1.3 $\n", 

”\n M # 

(char * ) NULL 

}; 

H. MAINTENANCEDIALOG.H 

/* 

* $Id: MaintenanceDialog . h, v 1.3 1998/01/25 22:49:08 greg Exp $ 

* 

* MaintenanceDialog. h — Software Base Search Interface 

* 

* Header file for the initialization dialog. 

★ 

* Naval Postgraduate School 

* January 13, 1998 

* 

* Written by Gregory L. Meckstroth 

* 

*/ 

void MaintenanceDialog (Widget parent); 
void ModalMaintenanceDialog (Widget parent); 



I. MAINTENANCEDIALOG.C 



/* 

* $Id: MaintenanceDialog. C,v 1.8 1998/01/25 22:49:08 greg Exp $ 

* 

* MaintenanceDialog .C — Software Base Search Interface 

★ 

* Source code for the CAPS software base maintenance dialog. This dialog setups 

* the files needed by the ADA routines and runs the initialization. It is 

* assumed that the components are in separate directories and that these are 

* the only directories in the software base. All of the directory names in the 

* software base are written to the sb_header.dat file. This file is then used 

* as input to the initialization. 

* 

* Entry points: MaintenanceDialog, ModalMaintenanceDialog. 
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* Naval Postgraduate School 

* January 13, 1998 

* 

* Written by Gregory L. Meckstroth 



*/ 



#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 



<stdio. h> 
<stdlib . h> 
<iostream. h> 
<s tring . h> 
<sys/types . h> 
<sys/stat . h> 
<unistd. h> 
<dirent . h> 



#include 
#include 
# include 
#include 
#include 
#include 
#include 
#include 
#include 



<Xm/Xm.h> 
<Xm/Text . h> 
<Xm/Label . h> 
<Xm/ScrolledW . h> 
<Xm/Form. h> 
<Xm/RowColumn . h> 
<Xm/Separator . h> 
<Xm/PushB. h> 
<Xm/FileSB.h> 



#include "Gui.h" 

# include "Menu.h" 

#include "SearchDialog . h" 
#include "SDE.h" 

#include "Callbacks . h" 

#include "Utils. h" 

#include "DisplayProgress . h" 
#include "PromptDialog . h" 
#include "MaintenanceDialog . h" 



/* 

* The INIT_DATA structure is used to pass data to the callback routines. 

* parent: widget to use as the parent for dialog construction. 

* flist_text: text widget for component file list. 

* fname_text: text widget for file name display. 

* spec_text: text widget for specification display. 

*/ 



struct INIT_DATA 

{ 

Widget parent; 
Widget flist_text; 
Widget fname_text; 
Widget spec_text; 

} ; 



/* 

* Declarations for local functions. 

V 

static void 

clear ( INIT_DATA * data); 
static int 

initdirectory (char *sfname, INIT_DATA * data); 
static void 

closeCB (Widget widget, XtPointer client_data, XtPointer call_data); 
static void 

exitCB (Widget widget, XtPointer client_data, XtPointer call_data) ; 
static void 

initdirCB (Widget widget, XtPointer client_data, XtPointer call_data) ; 
static void 

initsbCB (Widget widget, XtPointer client_data, XtPointer call_data) ; 
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static void 

addokCB (Widget widget, XtPointer client_data, XtPointer call_data) ; 
static void 

addcancelCB (Widget widget, XtPointer client_data, XtPointer call_data) ; 
static void 

addCB (Widget widget, XtPointer client_data, XtPointer call_data); 
static void 

clearflCB (Widget widget, XtPointer client_data, XtPointer call_data) ; 
static void 

clearallCB (Widget widget, XtPointer client_data, XtPointer call_data) ; 



/* 

* Declaration for the "ADA export" initialization routine. 

*/ 

extern "C" sb_init(char * sb_root_directory, char *sb_header_f ile_name) ; 

/* 

* Global storage for the user selected spec file and component directory. 

*/ 

static char * save_spec_f ilename = NULL; 
static char *save_component_dir = NULL; 

/* 

* Used by the modal search dialog. done_with_dialog while true the event loop 

* will continue running. Setting this to false allows the event loop to exit. 
*/ 

static int done_with_dialog; 

/* 

* Display the software base maintenance modal dialog. 

*/ 

void 

ModalMaintenanceDialog (Widget parent) 

{ 

MaintenanceDialog (parent) ; 

/* 

* Wait for a response to the dialog. When the Dismiss or cancel button is 

* pressed done_with_dialog will be set true causing the loop to terminate. 

V 

done_with_dialog = False; 
while ( ! done_with_dialog) 

XtAppProcessEvent (XtWidgetToApplicationContext (parent) , XtIMAll) ; 

} 

/* 

* Display the software base maintenance dialog. 

*/ 

void 

MaintenanceDialog (Widget parent) 

{ 

Widget spec_fname_text ; 

Widget dialog_window; 

Widget menubar; 

Widget specmenu; 

Widget componentmenu; 

Widget initmenu; 

Widget helpmenu; 

Widget previous; 

Widget spec_label; 

Widget scrolled_spec_window; 

Widget spec_text; 

Widget initsb_btn; 

Widget initdir_btn; 
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Widget clearfl_btn; 

Widget clearall_btn; 

Widget dismiss_btn; 

Widget caps_label; 

Widget f ilelist_label; 

Widget scroll ed_f ilelist_window; 
Widget filelist_text; 

Arg args [20] ; 

Cardinal n; 

char *title; 



XmString xmstring; 

/* 

* The following static varables are used by callbacks after 

* MaintenanceDialog returns. 

*/ 

static FILEDLG_DATA f iledlg_data; 
static INI T_ DAT A init_data; 

/* 

* Create the dialog box. 

*/ 



title - "Software Base Maintenance"; 
n = 0; 

SET ARG (args [n] 

SETARG (args [n] 

SETARG (args [n] 

SETARG (args [n] 

SETARG (args [n] 

SETARG (args [n] 



XmNautoUnmanage, False, n) ; 

XmNwidth, DIALOG_WIDTH, n) ; 

XmNheight, DIALOG_HEIGHT - INFO_WINDOW_HEIGHT, n) 
XmNnoResize, True, n) ; 

XmNtitle, title, n) ; 

XinNiconName, title, n) ; 



dialog_window = XmCreateFormDialog (parent, "sbsdialog" , args, 



/* 

* Save the dialog widget for later use. 
*/ 



filedlg_data . parent = dialog_window; 
init_data . parent = dialog_window; 

/* 

* Create menubar. 

*/ 



n = 0; 

SETARG (args [n] , XmNtopAttachment, XmATTACH_FORM, n) ; 

SETARG (args [n] , XmNlef t Attachment , XmATTACH_FORM, n) ; 

SETARG (args [n] , XmNrightAttachment , XmATTACH_FORM, n) ; 

menubar = XmCreateMenuBar (dialog_window, "sbsmenubar " , args, n) ; 

previous = menubar; 

XtManageChild (menubar ) ; 

/* 

* Create spec menu. Callbacks for this menu are in Callbacks. C. 
*/ 

specmenu = CreateMenu (menubar , "sbsmenu" , "Spec", 'S'); 

(void) AddMenuItem(specmenu, "new", 

"New" , 

"Ctrl+N", "Ctrl<Key>n" , 'N', 

(XtCallbackProc) newCB, 

(XtPointer) & filedlg_data) ; 

(void) AddMenuI tern (specmenu, "open" , 

"Open" , 

"Ctrl+O", "Ctrl<Key>o" , 'O', 

(XtCallbackProc) openCB, 
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(XtPointer) & f iledlg_data) ; 



(void) AddMenuI tem ( specmenu, "edit” , 

"Edit" , 

"Ctrl+E", "Ctrl<Key>e" , 'E', 

(XtCallbackProc) editCB, 

(XtPointer) & filedlg_data) ; 

(void) XtVaCreateManagedWidget ("sep" , xmSeparatorWidgetClass, specmenu, NULL) 

(void) AddMenuI tem ( specmenu, "save" , 

"Save" , 

"Ctrl+S " , "Ctrl<Key>s " , ’S', 

(XtCallbackProc) saveCB, 

(XtPointer) & f iledlg_data) ; 

(void) AddMenuI tem (specmenu, "saveas" , 

"Save As", 

"Ctrl+A" , "Ctrl<Key>a" , 'A', 

(XtCallbackProc) saveasCB, 

(XtPointer) & filedlg_data) ; 

(void) XtVaCreateManagedWidget ( "sep" , xmSeparatorWidgetClass, specmenu, NULL) 

(void) AddMenuI tem ( specmenu, "close" , 

"Close" , 

"Ctrl+W", "Ctrl<Key>w" , 'C', 

(XtCallbackProc) closeCB, 

(XtPointer) & init_data) ; 

(void) AddMenuI tem (specmenu, "exit", 

"Exit", 

"Ctrl+Q", "Ctrl<Key>Q" , ’x', 

(XtCallbackProc) exitCB, 

(XtPointer) NULL); 



/* 

* Create the component menu. Callbacks are implemented locally 
*/ 

componentmenu = CreateMenu (menubar, "sbsmenu", "Component", 1 C ' ) ; 

( void) AddMenuItem (componentmenu, "addf ile" , 

"Add Component File", 

"Ctrl + F", "Ctrl<Key>f ", 1 F * , 

(XtCallbackProc) addCB, 

(XtPointer) & init_data) ; 

(void) AddMenuItem (componentmenu, " clear fi le " , 

"Clear Component Files", 

"Ctrl+C" , "Ctrl<Key>c" , 'C', 

(XtCallbackProc) clearflCB, 

(XtPointer) & init_data); 

(void) AddMenuItem (componentmenu, "clearall" , 

"Clear All Files", 

"Ctrl+L" , "Ct rl<Key>l" , ’1’, 

(XtCallbackProc) clearallCB, 

(XtPointer) & init_data) ; 



/* 

* Create the init menu. Callbacks are implemented locally 
*/ 

initmenu = CreateMenu (menubar , "sbsmenu", "Init", 'I'); 

(void) AddMenuItem ( initmenu, "initsb" , 

"Initialize Software Base", 

"Ctrl+I", "Ctrl<Key>i" , 'I', 

(XtCallbackProc) initsbCB, 

(XtPointer) & init_data) ; 

(void) AddMenuItem ( initmenu, "initdir", 

"Initialize Directory”, 
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"Ctrl+D", "Ctrl<Key>d", ' D ' , 
(XtCallbackProc) initdirCB, 
(XtPointer) & init_data) ; 



/* 

* Create Help menu. 

*/ 

helpmenu = CreateHelpMenu (menubar , "sbsmenu", "Help", ’ H * ) ; 

/* 

* Label the dialog to let the use know what it is for. 

*/ 

xmstring = XmStringCreateSimple ( "CAPS Software Base Maintenance"); 
caps_label = XtVaCreateManagedwidget ( "sbslabel" , 
xmLabelWidgetClass , dialog_window, 

XmNlabelString, xmstring, 

XmN top Attachment, XmATTACH_WI DGET , 

XmNtopWidget , previous, 

XmNtopOf f set , 5, 

XmNbottomAttachment , XmATTACH_NONE , 

XmNle f tAt tachment , XmATTACH_POSITION, 

XmNlef tPosition, 35, 

XmNright Attachment , XmATTACH_NONE , 

NULL) ; 

XmStringFree (xmstring) ; 
previous = caps_label; 

/* 

* Spec_label and spec_fname_text display the current spec file name for 

* the user 
*/ 

xmstring = XmStringCreateSimple ( "PSDL Spec:"); 
spec_label = XtVaCreateManagedwidget ( "sbslabel" , 
xmLabelWidgetClass, dialog_window, 

XmNlabelString, xmstring, 

XmNtopAttachment , XmATTACH_WI DGET , 

XmNtopWidget, previous, 

XmNtopOf f set , 5, 

XmNlef tAttachment, XmATTACH_POSITION, 

XmNlef tPosition, 15, 

NULL) ; 

XmStringFree (xmstring) ; 

spec_fname_text = XtVaCreateManagedwidget ( "sbstext" , 
xmTextWidgetClass, dialog_window, 

XmNeditMode , XmSINGLE_LINE_EDIT, 

XmNeditable, True, 

XmNshadowThickness , 1, 

XmNmarginHeight , 2, 

XmNcursorPositionVisible, True, 

XmNtopAttachment, XmATTACH_WIDGET, 

XmNtopWidget, previous, 

XmNtopOf f set , 5, 

XmNle ft At tachment, XmATTACH_WI DGET , 

XmNlef tWidget, spec_label, 

XmNlef tOff set, 5, 

XmNrightAttachment, XmATT ACH_FORM , 

XmNrightOf f set , 10, 

NULL) ; 



/* 

* Save the widget so that the file and init callbacks can change the name 

* when the user enters a new one. 

*/ 

filedlg_data. fname_text = spec_fname_text; 
init_data . fname_text = spec_fname_text; 

/* 

* This callback will update the file name and spec text if the user types 

* a return in the fname text box. 
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XtAddCallback { spec_fname_text, XmNactivateCallback, 
(XtCallbackProc) textchangedCB, 

(XtPointer) & filedlg_data) ; 

XtManageChild (spec_fname_text) ; 

/* 

* Setup scrolled window to display spec text. 

V 

scrolled_spec_window = XtVaCreateManagedWidget ( "sbswindow" , 
xmScrolledWindowWidgetClass , dialog_window / 

XmNwidth, INFO_WINDOW_WIDTH, 

XmNheight, INFO_WINDOW_HEIGHT, 

XmNlef tAttachment, XmATTACH_FORM, 

XmNrightAttachment , XmATTACH_FORM, 

XmNtopAttachment, XmATTACH_WIDGET, 

XmNtopWidget, spec_label, 

XmNtopOf fset, 5, 

XmNbottomAttachment , XmATTACH_NONE, 

XmNresizable, True, 

XmNlef tOff set, 5, 

XmNrightOf f set, 5, 

XmNbottomOf f set, 5, 

XmNscrollingPolicy, XmAUTOMATIC, 
XmNscrollBarDisplayPolicy, XmSTATIC, 
XmNscrolledWindowMarginWidth, 5, 
XmNscrolledWindowMarginHeight, 5, 

XmNscrollVertical, False, 

XmNscrollHorizontal, True, 

NULL) ; 

spec_text = XtVaCreateManagedWidget ( "sbstext", 
xmTextWidgetClass , scrolled_spec_window, 

XmNwidth, INFO_WINDOW_WIDTH, 

XmNheight, INFO_WINDOW_HEIGHT, 

XmNeditMode, XmMULTI_LINE_EDIT, 

XmNshadowThickness , 0, 

XmNmarginHeight, 0, 

XmNscrollHorizontal, False, 

XmNeditable, False, 

XmNtraversalOn, False, 

XmNcursorPositionVisible, False, 

NULL) ; 



/* 

* Save the widget so that the spec text can be updated when the user 

* changes the file name or edits that text 
*/ 

f iledlg_data . text = spec_text; 
init_data . spec_text = spec_text; 

XmScrolledWindowSet Areas {scrolled_spec_window, 

(Widget) NULL, 

(Widget) NULL, 
spec_text) ; 

XtManageChild (spec_text) ; 

/* 

* If the user is restarting the dialog try to use the file name that was 

* entered 
*/ 

if (save_spec_filename != NULL) 

{ 

char *text; 

XmTextSetString { spec_fname_text , save_spec_f ilename ) ; 
if (LoadFile (save_spec_filename, &text) ! = -1 && text !- NULL) 
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{ 

XmTextSetString { spec_text , text) ; 
XtFree {text ) ; 



XtFree {save_spec_f ilename) ; 
save_spec_f ilename = NULL; 

} 

/* 

* Filelist_label and f ilelis t_text display the component file list that 

* will be copied into the component directory 

V 

xmstring = XmStringCreateSimple { "Component Files:"); 
f ilelist_label = XtVaCreateManagedWidget ( "sbslabel" , 
xmLabelWidgetClass , dialog_window / 

XmNlabelString, xmstring, 

XmNtopAttachment , XmATTACH_WI DGET , 

XmNtopWidget , scrolled_spec_window, 

XmNtopOf f set , 5, 

XmNlef tAttachment , XmATTACH_POSITION, 

XmNlef tPosition, 15, 

NULL) ; 

XmStringFree (xmstring) ; 

scrolled_f ilelist_window = XtVaCreateManagedWidget ( "sbswindow" , 
xmScrolledWindowWidgetClass, dialog_window, 

XmNwidth, INFO_WINDOW_WIDTH, 

XmNheight , INF0_WIND0W_HEIGHT, 

XmNlef tAttachment, XmATTACH_FORM, 

XmNrightAttachment , XmATT ACH_FORM , 

XmNtopAttachment, XmATTACH_WI DGET , 

XmNtopWidget, f ilelist_label, 

XmNtopOf f set , 5, 

XmNbottomAttachment , XmATT ACH_NONE, 

XmNresizable, True, 

XmNlef tOff set , 5, 

XmNrightOf f set , 5, 

XmNbottomOf f set , 5, 

XmNscrollingPolicy, XmAUTOMATIC, 

XmNscrollBarDisplayPolicy, XmSTATIC, 

XmNscrolledWindowMarginWidth, 5, 

XmNscrolledWindowMarginHeight , 5, 

XmNscrollVertical, False, 

XmNscrollHorizontal, True, 

NULL) ; 

previous = scrolled_f ilelist_window; 

f ilelist_text = XtVaCreateManagedWidget ( "sbstext" , 
xmTextWidgetClass, scrolled_f ilelis t_window, 

XmNwidth, INFO_WINDOW_WIDTH, 

XmNheight, INF0_WIND0W_HEIGHT , 

XmNeditMode , XmMULTI_LINE_EDIT , 

XmNshadowThickness , 0, 

XmNmarginHeight, 0, 

XmNscrollHorizontal, True, 

XmNeditable, True, 

XmNtraversalOn, True, 

XmNcursorPositionVisible, True, 

NULL) ; 



/* 

* Save the widget so that the init callbacks can update the file list when 

* the user enters changes . 

*/ 

init_data . flist_text = f ilelist_text ; 

XmScrolledWindowSetAreas { scrolled_f ilelist_window, 

(Widget) NULL, 

(Widget) NULL, 
filelist text); 
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XtManageChild ( f ilelist_text ) ; 

/* 

* Create the push buttons at the bottom of the dialog box. 
*/ 

xmstring - XmStringCreateSimple ( "Dismiss") ; 

dismiss_btn = XtVaCreateManagedWidget ( "sbslabel " , 
xmPushButtonWidgetClass, dialog_window, 

XmNlabelString, xmstring, 

XmNwidth, BUTTON_WIDTH, 

XmNheight , BUTTON_HEI GHT , 

XmNle ft Attachment, XmATT ACH_FORM, 

XmNleftOf f set, 20, 

XmNrightAttachment, XmATTACH_NONE, 

XmNtopAttachment, XmATTACH_NONE, 

XmNbottomAttachment, XmATTACH_FORM, 

XmNbottomOf f set , 10, 

NULL) ; 

XmStringFree (xmstring) ; 

XtAddCallback (dismiss_btn, 

XmNactivateCallback, 

(XtCallbackProc) closeCB, 

(XtPointer) & init_data) ; 

XtManageChild (dismiss_btn) ; 

xmstring = XmStringCreateSimple {" Init DIR"); 

initdir_btn = XtVaCreateManagedWidget ( "sbslabel", 
xmPushButtonWidgetClass, dialog_window, 

XmNlabelString, xmstring, 

XmNwidth, BUTTON_WIDTH, 

XmNheight, BUTTON_HEIGHT, 

XrnNlef tAttachment , XmATT ACH_W I DGET , 

XmNlef tWidget , dismiss_btn, 

XmNlef tOff set, 10, 

XmNrightAttachment, XmATT ACH_N ONE, 

XmNtopAttachment, XmATTACH_NONE, 

XmNbottomAttachment, XmATT ACH_FORM, 

XmNbottomOf f set , 10, 

NULL ) ; 

XmStringFree (xmstring) ; 

XtAddCallback (initdir_btn, 

XmNactivateCallback, 

(XtCallbackProc) initdirCB, 

(XtPointer) & init_data) ; 

XtManageChild (initdir_btn) ; 

xmstring = XmStringCreateSimple ( "Init SB"); 

initsb_btn = XtVaCreateManagedWidget ( "sbslabel", 
xmPushButtonWidgetClass , dialog_window, 

XmNlabelString, xmstring, 

XmNwidth, BUTTON_WIDTH, 

XmNheight, BUTTON_HEI GHT , 

XmNlef tAttachment, XmATT ACH_W I DGET , 

XmNlef tWidget , initdir_btn, 

XmNle f tOff set , 10, 

XmNrightAttachment, XmATTACH_NONE, 

XmNtopAttachment, XmATT AC H_NONE, 

XmNbottomAttachment, XmATTACH_FORM, 

XmNbottomOf f set , 10, 

NULL) ; 

XmStringFree (xmstring) ; 

XtAddCallback (initsb_btn, 

XmNactivateCallback, 

(XtCallbackProc) initsbCB, 

(XtPointer) & init_data) ; 

XtManageChild (initsb_btn) ; 
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xmstring = XmStringCreateSimple ( ’’Clear FL’’); 

clearfl_btn = XtVaCreateManagedWidget ( ’’sbslabel” , 
xmPushButtonWidgetClass, dialog_window, 

XmNlabelString, xmstring, 

XmNwidth, BUTTON_WIDTH, 

XmNheight, BUTTON_HEIGHT, 

XmNlef t Attachment , XmATTACH_W I DGET , 

XmNlef tWidget , initsb_btn, 

XmNleftOf fset , 10, 

XmNright Attachment, XmATTACH_NONE, 

XmNtopAttachment , XmATTACH_NONE, 

XmNbottomAttachment , XmATTACH_FORM, 

XmNbottomOf f set , 10, 

NULL) ; 

XmStringFree (xmstring) ; 

XtAddCallback ( clear fl_btn, 

XmNactivateCallback, 

(XtCallbackProc) clearflCB, 

(XtPointer) & init_data) ; 

XtManageChild (clearf l_btn) ; 

xmstring = XmStringCreateSimple ( "Clear All"); 

clearall_btn = XtVaCreateManagedWidget ( "sbslabel" , 
xmPushButtonWidgetClass , dialog_window, 

XmNlabelString, xmstring, 

XmNwidth, BUTTON_W I DTH , 

XmNheight, BUTTON_HEIGHT, 

XmNle ft Attachment, XmATTACH_W I DGET , 

XmNlef tWidget , clearfl_btn, 

XmNleftOf fset, 10, 

XmNright Attachment , XmATT ACH_NONE , 

XmNtopAttachment, XmATTACH_NONE, 

XmNbottomAttachment, XmATTACH_FORM, 

XmNbottomOf fset , 10, 

NULL) ; 

XmStringFree (xmstring) ; 

XtAddCallback ( clearall_btn, 

XmNactivateCallback, 

(XtCallbackProc) clearallCB, 

(XtPointer) & init_data) ; 

XtManageChild (clearall_btn) ; 

XtManageChild ( dialog_window) ; 

/* 

* Initialize the progress display this is done one time from the search 

* dialog or init dialog. 

*/ 

initilize_display (parent ) ; 



/* 

* Clear all of the init dialog text displays. 

*/ 

static void 

clear (INIT_DATA * data) 

{ 

XmTextSetString (data->fname_text , '”') ; 

XmTextSetString (data->spec_text , ”") ; 

XmTextSetString (data->flist_text, "") ; 

) 

/* 

* Initialize the component directory. Create the directory using the spec file 

* name with out the extension as the directory name. Copy the spec file and 

* all files in the file list into the component directory. 

*/ 



static int 
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mitdirectory (char *sfname, INIT_DATA + data) 

{ 

char * sbfname; 
char Component; 
char ^extension; 
char + file; 

char IObuffer [MAXBUFSIZE] ; 
char + flist; 
char *path; 
char *newline; 

char * format = "Copying: %s\n To: %s\n\n"; 

/* 

* Show the user what is happening in the progress display. The display was 

* cleared by the calling routine. 

*/ 

display_message ( "Doing Directory Initilization\n\n" ) ; 

/* 

* Create the component directory using the spec file name without the 

* extension as the directory name. 

*/ 

sbfname = getf ilename ( sfname ) ; 
component = catst rings ( SBROOT, sbfname); 

extension = strrchr (component , ’.'); 

if (extension != NULL) 

{ 

strcpy ( extension, "/"); 

} 

sprint f ( IObuffer , "Creating directory: %s\n\n", component); 
display_message (IObuffer) ; 

if (mkdir (component, 0755) == -1) 

{ 

sprintf (IObuffer, "error creating component directory %s\nDone . \n" , component) 
ModalWarningDialog (data->parent, "Error", IObuffer); 
return True; 

) 

/* 

* Copy the spec file into PSDL_SPEC which is used by the ADA search 

* routines. For convenience also copy the file into the component 

* directory. 

V 

file = catstrings (component , "PSDL_SPEC") ; 
sprintf ( IObuffer , format, sfname, file); 
display_message ( IObuffer) ; 

CopyFile (sfname, file); 

XtFree (file ) ; 

file = catstrings (component , sbfname); 
sprintf ( IObuffer, format, sfname, file); 
display_message ( IObuffer) ; 

CopyFile (sfname, file); 

XtFree ( file) ; 

XtFree (sbfname) ; 

/* 

* Now copy all of the files in the file list into the component directory 
*/ 

flist = XmTextGetString (data->f list_text) ; 
newline = strchr ( flist, '\n'); 

for (path = flist; newline != NULL; newline = strchr (path, *\n')) 

( 

*newline = '\0'; 
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sbfname = getf ilename (path) ; 
file = catstrings (component, sbfname); 
sprintf ( IObuf fer, format, path, file) ; 
display_message ( IObuf fer) ; 

CopyFile (path, file); 

XtFree ( sbfname) ; 

XtFree (file) ; 

path - newline + 1; 

} 

XtFree ( flist) ; 

XtFree (component) ; 
display_message ( "Done\n" ) ; 
return False; 

} 

/* 

* Callback closes the dialog and saves the spec file name for later. The data 

* for this callback is passed through the client data as a pointer to a 

* INIT_DATA structure. 

*/ 

static void 

closeCB (Widget widget, 

XtPointer client_data, 

XtPointer call_data) 

{ 

INIT_DATA *data = (INIT_DATA *) client_data; 

if ( save_spec_f ilename != NULL) 

XtFree ( save_spec_f ilename ) ; 

save_spec_f ilename = gettext (data->fname_text ) ; 

if (XtlsManaged (data->parent ) ) 

XtUnmanageChild (data->parent) ; 

done_with_dialog - True; 

} 

/* 

* Callback exits program. 

V 

static void 

exitCB (Widget widget, 

XtPointer client_data, 

XtPointer call_data) 

{ 

exit (0) ; 

} 

/* 

* Callback to initialize the component directory. The data for this callback is 

* passed through the client data as a pointer to a INIT_DATA structure. 

*/ 

static void 

initdirCB (Widget widget, 

XtPointer client_data, 

XtPointer call_data) 

{ 

INIT_DATA *data = (INIT_DATA *) client_data; 
char *sfname = gettext (data->fname_text ) ; 

/* 

* Clear the progress display and change its title 
*/ 

clear_display ( "Initializing SB Directory”); 
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/* 

* If the user had not entered a spec file name no need to init directory 



if (sfname != NULL) 

{ 

/* 

* If the directory initialization errors out don't clear the dialog. 
*/ 



if (! initdirectory (sfname, data)) 
clear (data) ; 

XtFree (sfname ) ; 

} 



/* 

* Callback to initialize the software base. The data for this callback is 

* passed through the client data as a pointer to a INIT_DATA structure. If the 

* user has entered a spec initialize the component directory first. Then create 

* sb_header.dat file before running the initialization routine. 

V 

static void 

initsbCB (Widget widget, 

XtPointer client_data, 

XtPointer call_data) 

{ 

INIT_DATA *data = ( INIT_DATA *) client_data; 

FILE * fp; 

struct dirent *entry; 

DIR *dirp; 

struct stat file_info; 
long ID = 1000; 

char *sfname = gettext (data->fname_text ) ; 
char *file; 

char *header_f ile_name; 

/* 

* Let the user know what is happening 
*/ 

clear_display { "Initializing Software Base"); 
display_message ( "Doing software Base Initialization \n\n") ; 

/* 

* Initialize the component directory if their is a spec name 
*/ 



if (sfname != NULL) 

( 

/* 

* If the initialization errors out stop and give the user a chance to 

* fix the problems 
*/ 



if (initdirectory { sfname, data)) 
return; 

} 



/* 

* Create the header file in the software base root directory 
*/ 

header_f ile_name = catstrings (SBROOT, "sb_header.dat"); 
fp = fopen (header_f ile_name, "w"); 

/* 

* Loop through the software base root directory adding the component 

* directories to the header file 
*/ 
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dirp = opendir (SBROOT) ; 



for (entry = readdir (dirp) ; entry != NULL; entry = readdir ( dirp) ) 

{ 

if (entry->d_name ( 0] == '.') 
continue; 



/* 

* Only add directory names to the header file. 

V 

file = catstrings (SBROOT, entry->d_name) ; 
if (stat(file, &file_info) != 0) 

{ 

closedir (dirp) ; 

XtFree (file) ; 
break; 

} 

if (S_ISDIR ( f ile_inf o . st_mode) ) 

{ 

fprintf(fp, "%ld %s\n", ID, file); 

ID += 1000; 

) 

XtFree ( file) ; 

} 

closedir (dirp) ; 
fclose ( fp) ; 

/* 

* Run the ADA software base initialization. Progress messages are displayed 

* to let the user know what is happening 

V 

sb_init (SBROOT, header_f ile_name) ; 

XtFree (header_file_name ) ; 

/* 

* Clear the dialog so that the user can enter another spec if needed. 

*/ 

clear (data ) ; 

display_message ( M Done\n" ) ; 



/* 

* OK callback for adding components to the file list. The data for this 

* callback is * passed through the client data as a pointer to an INIT_DATA 

* structure and * the call data is a pointer to a 

* XmFileSelectionBoxCallbackStruct . The file * name is take from the call data 

* and added to the file list text. 

*/ 



static void 

addokCB (Widget widget, 

XtPointer client_data, 

XtPointer call_data) 

{ 

INIT_DATA *data = ( INIT_DATA * ) client_data; 
XmFileSelectionBoxCallbackStruct *ptr; 
char * filename; 

/* 

* Convert the file name to a character string. 

*/ 

ptr = (XmFileSelectionBoxCallbackStruct *) call_data; 
XmStringGetLtoR (ptr->value, XmSTRING_DEFAULT_CHARSET, & filename) ; 

/* 

* Take the dialog box off of the screen and free up its data 
*/ 
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XtUnmanageChild (data->parent ) ; 

XtDestroyWidget (data->parent) ; 

/* 

* If the user did not select a file we are done 
*/ 



if (filename == NULL) 
return; 

if (save_component_dir != NULL) 

XtFree ( save_component_dir) ; 

/* 

* Save the directory for the next time the user wants to open a file. This 

* will make the task of entering multiple files from the same directory 

* easier. 

*/ 

save_component_dir = getdirname ( filename ) ; 

/* 

* Display the file list in its text widget. This is also the place we save 

* the file list for later use. 

*/ 

XmTextlnsert (data->f lis t_text , 10000, filename); 

XmTextlnsert (data->f list_text , 10000, "\n") ; 

XtFree ( filename) ; 



/* 

* Cancel callback for the file list selection dialog. 

*/ 

static void 

addcancelCB (Widget widget, XtPointer client_data, XtPointer call_data) 

{ 

XtUnmanageChild ( (Widget) client_data) ; 

XtDestroyWidget ( (Widget) client_data) ; 

} 



/* 

* Add file dialog callback. Displays a file selection dialog to the user. 

* The data for this callback is passed through the client data as a pointer 

* to an INIT_DATA structure. User input is returned through the addokCB 

* callback. The selected file will be added to the filelist 
*/ 

static void 

addCB (Widget widget, 

XtPointer client_data, 

XtPointer call_data) 

{ 

INIT_DATA Mata = ( INIT_DATA *) client_data; 
static INIT_DATA ok_data; 

Widget fsdialog; 

Arg args [20] ; 

Cardinal n; 

XmString title = XmStringCreateSimple ( "Add to file list"); 

/* 

* Create the file selection dialog. 

*/ 

n = 0; 

SETARG (args [n] , XmNdialogTitle, title, n) ; 

fsdialog = XmCreateFileSelectionDialog (data->parent , "sbsdialog" , args, n) ; 
XmStringFree (title) ; 
if (save_component_dir != NULL) 
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Set_Res_String ( fsdialog, XmNdirectory , save_component dir); 

/* 

* Change the parent widget to the file selection dialog so we can close it 

* and not its parent. The rest of the data is pasted through. 

*/ 

ok_data . parent = fsdialog; 

ok_data . flist_text = data->f list_text ; 

ok_data . fname_text = data->fname_text; 

/* 

* Add the callbacks to the OK and cancel buttons. 

V 

XtAddCallback ( fsdialog, XmNokCallback, 

(XtCallbackProc) addokCB, 

(XtPointer) & ok_data) ; 

XtAddCallback ( fsdialog, XmNcancelCallback, 

(XtCallbackProc) addcancelCB, 

(XtPointer) fsdialog) ; 

XtManageChild ( fsdialog) ; 



/* 

* Callback to clear the component file list. The data for this callback is 

* passed through the client data as a pointer to a INIT_DATA structure. 

*/ 

static void 

clearflCB (Widget widget, 

XtPointer client_data, 

XtPointer call_data) 

{ 

INIT_DATA * data = (INIT_DATA *) client_data; 

XmTextSetString (data->flist_text, ,,M ) ; 



/* 

* Callback to clear the init dialog. The data for this callback is passed 

* through the client data as a pointer to a INIT_DATA structure. 

V 

static void 

clearallCB (Widget widget, 

XtPointer client_data, 

XtPointer call_data) 

{ 

INIT_DATA Mata = (INIT_DATA *) client_data; 
clear (data) ; 



J. MENU.H 



/* 

* Sid: Menu.h,v 1.4 1998/01/18 16:35:45 greg Exp $ 

★ 

* Menu.h -- Software Base Search Interface 

★ 

* Header file for the dialogs menus. 

* 

* Naval Postgraduate School 

* January 13, 1998 

* 

* Written by Gregory L. Meckstroth 
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Widget 

CreateMenu (Widget parent, 
char *name, 
char *label, 
char mnemonic) ; 



Widget 

CreateHelpMenu (Widget parent, 
char *name, 
char *label, 
char mnemonic); 



Widget 

AddMenuI tern (Widget parent, 
char + name, 
char *label, 
char *acc_text, 
char *acc_key, 
char mnemonic, 
XtCallbackProc callback, 
XtPointer client_data) ; 



K. MENU.C 



/* 

* $Id: Menu.C,v 1.5 1998/01/25 22:49:09 greg Exp $ 

★ 

* Menu.C -- Software Base Search Interface 



* Source code for the creation of the menus used in the dialogs. These routine 

* create cascade style menus, add menu items, and implement the cascade style 

* help menu. 

* 

* Entry points: CreateMenu, CreateHelpMenu, AddMenuI tern. 

* 

* Naval Postgraduate School 

* January 13, 1998 

* Written by Gregory L. Meckstroth 

* 

V 

#include <stdio.h> 
tinclude <stdlib.h> 



#include <Xm/Xm.h> 
#include <Xm/CascadeB . h> 
#include <Xm/RowColumn . h> 
#include <Xm/PushB.h> 
#include <Xm/Separator . h> 



#include 

#include 

#include 

#include 



"Gui .h" 

"Menu . h" 

"HelpMessages . h" 
"DisplayProgress .h" 



/* 

* Declarations for local functions. 
*/ 



static void 

helpCB (Widget widget, XtPointer client_data, XtPointer call_data); 



/* 

* Create a cascade style menu with a widget name, label and nemonic. 
*/ 



Widget 

CreateMenu (Widget parent, 
char *name, 
char *label, 



// Parent for the menu. 
// Widget name. 

// Menu label. 
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{ 



char mnemonic) 



// Shortcut key. 



Widget menu; 

Widget cascade; 

XmString xmstring; 

Arg args [20 ] ; 

Cardinal n; 

/* 

* Create pull down menu. Engage tear-off menu. 

V 

xmstring = XmS tringCreateSimple (label) ; 
n = 0; 

SETARG (args [n] , XmNtearOf f Model , XmT E AR_0 FF_E N AB LED, n) ; 
menu = XmCreatePulldownMenu (parent , name, args, n) ; 

/* 

* Create cascade button and connect to menu. 

V 

cascade = XtVaCreateWidget (name, 

xmCascadeButtonWidget Class , parent, 

XmNlabelString, xmstring, 

XmNsubMenuId, menu, 

XmNmnemonic, mnemonic, 

NULL) ; 

XtManageChild (cascade) ; 
return menu; 

} 

/* 

* Create the help menu to the far right with items maintenance, search and 

* version. The menu will have a keyboard shortcut 
*/ 



Widget menu; 

Widget cascade; 

XmString xmstring; 

Arg args [20] ; 

Cardinal n; 

/* 

* Create the pull down menu. 

*/ 

xmstring = XmStringCreateSimple (label ) ; 

n = 0; 

SETARG (args [n] , XmNtearOf fModel, XmTEAR_OFF_ENABLED, n) ; 

menu = XmCreatePulldownMenu (parent , name, args, n) ; 

/* 

* Create cascade button and connect to menu. 

*/ 

cascade = XtVaCreateWidget (name, 

xmCascadeButtonWidget Class , parent, 

XmNlabelString, xmstring, 

XmNsubMenuId, menu, 

XmNmnemonic, mnemonic, 

NULL) ; 



Widget 

CreateHelpMenu (Widget parent, 



// Parent for the menu. 



char *name, 
char *label, 
char mnemonic) 



// Widget name. 

// Menu label. 

// Shortcut key. 
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/* 

+ Make this the help menu which will place it at the far right. 

*/ 

XtVaSetValues (parent , XmNmenuHelpWidget , cascade, NULL) ; 

/* 

* Set up menu choices for the Help menu. 

V 

(void) AddMenuItem (menu, "maintenancehelp" , 

"Maintenance" , 

NULL, NULL, 'I', 

(XtCallbackProc) helpCB, 

(XtPointer) & maintenance_help_message ) ; 

(void) AddMenuItem (menu, "searchhelp" , 

"Search", 

NULL, NULL, ’S*, 

(XtCallbackProc) helpCB, 

(XtPointer) search_help__message ) ; 

(void) XtVaCreateManagedWidget ( "sep", xmSeparatorWidgetClass , menu, NULL); 

(void) AddMenuItem (menu, "version" , 

"Version", 

NULL, NULL, 'V', 

(XtCallbackProc) helpCB, 

(XtPointer) version_message) ; 

XtManageChild (cascade ) ; 

return menu; 



/* 

* Add a menu item to the parent, which is assumed to be a menu widget. 
*/ 



Widget 

AddMenuItem (Widget parent, 

char *name, // 

char *label, 
char *acc_text, 
char *acc_key, 
char mnemonic, 

XtCallbackProc callback, 
XtPointer client_data) 

{ 



// Parent for item. 

Widget name. 

// Item label. 

// Accelorator text. 

// Accelorator key. 

// Shortcut key. 

// Callback for item 
// Client data for callback. 



Widget button; 

XmString stl = XmStringCreateSimple (label) ; 
XmString st2 = XmStringCreateSimple (acc_text); 



/* 

* Create the push button, the label and accelerator text are strings not 

* chars 
*/ 



button = XtVaCreateManagedWidget (name, xmPushButtonWidgetClass, parent, 
XmNlabelString, stl, 

XmNacceleratorText , st2, 

XmNaccelerator, acc_key, 

XmNmnemonic, mnemonic, 

NULL) ; 

XtAddCallback (button, XmNactivateCallback, callback, client_data); 

XmString Free (stl ) ; 

XmStringFree (st2) ; 

XtManageChild (button) ; 

return button; 
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/* 

* Callback for the help menu items opens the progress display and add the help 

* message. The data for this callback is passed through the client data as a 

* pointer to an array of character strings. The first string is used as the 

* dialog title. The last string is NULL. 

*/ 

static void 

helpCB {Widget widget, XtPointer client_data, XtPointer call_data) 

{ 

char **message = {char * * ) client_data; 

/* 

* Make sure that we have a message if not we are done. 

V 

if {message != NULL) 

{ 

/* 

* Clear the display and set the dialog title. 

* / 

clear_display { *message) ; 

/* 

* Loop through the message array adding the strings to the display 
*/ 

for {char * + c = message + 1; *c != {char *)NULL; C++) 

{ 

display_message ( *c) ; 

} 

/* 

* Make sure that the we are at the top of the messages 
*/ 

home_di splay { ) ; 

} 



L. PROMPTDIALOG.H 



/* 

* $Id: PromptDialog . h, v 1.1. 1.1 1998/01/14 03:40:05 greg Exp S 

* PromptDialog. h — Software Base Search Interface 

* 

* Header file for the GUI prompt dialogs. 

★ 

* Naval Postgraduate School 

* January 13, 1998 

* Written by Gregory L. Meckstroth 

* 

V 

int ModalPromptDialog (Widget parent, char *title, char *message) ; 
void ModalWarningDialog {Widget parent, char *title, char *message) ; 



M. PROMPTDIALOG.C 



/* 

* $Id: PromptDialog. C, v 1.2 1998/01/18 16:35:45 greg Exp $ 

★ 

* PromptDialog . C — Software Base Search Interface 
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* Source code for the modal prompt dialogs. 

* Entry points: ModalWarningDialog and ModalPromptDialog . 

+ Naval Postgraduate School 

* January 13/ 1998 

* Written by Gregory L. Meckstroth 
+ 

*/ 

#include <Xm/Xm.h> 

#include <Xm/MessageB . h> 

#include <Xm/Text.h> 



#include <stdio.h> 
#include <stdlib.h> 
#include <iostream.h> 



#include "Gui.h" 
#include "Utils. h" 



/* 

* The PROMPT_DATA structure is used to pass data to the callback routines. 

* done_with_dialog : While true the event loop will continue running. Setting 

* this to false allows the event loop to exit. return_value : Set by the 

* Callback routine to the modal dialog return value. 

*/ 



struct PROMPT_DATA 

{ 

int done_with_dialog; 
int return_value; 

} ; 



/* 

* Declarations for local functions. 

*/ 

static void 

okCB (Widget widget, XtPointer client_data, XtPointer call_data) ; 
static void 

cancelCB (Widget widget, XtPointer client_data, XtPointer call_data); 



/* 

* Display a modal dialog with a message for the user then wait for the user to 

* respond before allowing further program execution. Returns false if the ok 

* button is pressed and false for the cancel button. 

*/ 

int 

ModalPromptDialog (Widget parent, 
char *title, 
char *message) 

{ 

Widget dialog; 

Widget button; 

Arg args [20] ; 

Cardinal argcount; 

PROMPT_DATA cdata; 

cdata . done_with_dialog = False; 

/* 

* Create a question dialog box to display the message to the user. 

* Customize the title, ok and cancel buttons, remove the help button, and 

* add callbacks for the ok and cancel buttons. 

*/ 

argcount = 0; 

SETARG (args [argcount] , XmNdialogStyle, XmD I ALOG_FUL L_AP PL I CAT I ON_MOD AL , 
argcount) ; 
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dialog = XmCreateQuestionDialog (parent , "sbstext", args, argcount); 

Set_Res_String (dialog, XmNmes sageString, message); 

Set_Res_String (dialog, XmNdialogTitle, title); 

Set_Res_String (dialog, XmNokLabelString, "Yes") ; 

Set_Res_String (dialog, XmNcancelLabelString, "No"); 

button = XmMessageBoxGetChild (dialog, XmDIALOG_HELP_BUTTON) ; 

XtUnmanageChild (button) ; 

/* 

* Set the callbacks for the OK and cancel buttons so the we will get 

* control when the button is pressed. 

*/ 

XtAddCallback (dialog, XmNokCallback, (XtCallbackProc) okCB, (XtPointer) & cdata) ; 
XtAddCallback (dialog, XmNcancelCallback, (XtCallbackProc) cancelCB, (XtPointer) & 
cdata) ; 

XtManageChild (dialog) ; 

/* 

* Wait for a response to the dialog. When the OK or cancel button is 

* pressed done_with_dialog will be set true causing the loop to terminate. 

* Return_value is also set to the appropriate value in the callback. 

*/ 

while (! cdata . done_with_dialog) 

XtAppProcessEvent (XtWidgetToApplicationContext (dialog) , XtIMAll) ; 
return cdata. return value; 



/* 

* Display a modal warning or error dialog with a message for the user then wait 

* for the user to respond before allowing further program execution. 

*/ 

void 

ModalWarningDialog (Widget parent, 
char *title, 
char *message) 

{ 

Widget dialog; 

Widget button; 

Arg args [20] ; 

Cardinal argcount; 

PROMPT_DATA cdata; 

cdata . done_with_dialog = False; 

/* 

* Create a warning dialog box to display the message to the user. 

*/ 

argcount = 0; 

SETARG (args [argcount ] , XmNdialogStyle, XmD I ALOG_FULL_APPL I CAT I ON_MODAL , argcount) 

dialog = XmCreateWarningDialog (parent , args, argcount); 

Set_Res_String (dialog, XmNmessageSt ring, message); 

/* 

* Customize the title, remove the ok and help buttons. Change the name of 

* the cancel button to dismiss. 

*/ 



Set_Res_String (dialog, XmNdialogTitle, title); 

Set_Res_String (dialog, XmNcancelLabelString, "Dismiss"); 

button = XmMessageBoxGetChild (dialog, XmDIALOG_OK_BUTTON) ; 
XtUnmanageChild (button) ; 

button = XmMessageBoxGetChild (dialog, XmDIALOG_HELP_BUTTON) ; 
XtUnmanageChild (button) ; 
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/* 

* Add a callback for the dismiss (cancel) button. 

V 

XtAddCallback (dialog, XmNcancelCallback, (XtCallbackProc) cancelCB, 
(XtPointer) & cdata) ; 

XtManageChild (dialog) ; 

/* 

* Wait for a response to the dialog. When the dismiss button is pressed 

* done_with_dialog will be set true causing the loop to terminate. 

*/ 

while (! cdata . done_with_dialog) 

XtAppProcessEvent (XtWidgetToApplicationContext (dialog) , XtIMAll) ; 



/* 

* Callback set the done_with_dialog variable to true so that the dialog will 

* close. The data or this callback is passed through the client data as a 

* pointer to a PROMPT_DATA structure. Also set return value to false. 

*/ 

static void 

okCB (Widget widget, 

XtPointer client_data, 

XtPointer call_data) 

{ 

PROMPT_DATA *cptr = ( PROMPT_DATA *) client_data; 

cptr->done_with_dialog = True; 
cptr->return_value = False; 



/* 

* Save as okCB but returns true 

V 

static void 

cancelCB (Widget widget, 

XtPointer client_data, 

XtPointer call_data) 

{ 

PROMPT_DATA *cptr = ( PROMPT_DATA *) client_data; 

cptr->done_with_dialog = True; 
cptr->return_value = True; 



N. SDE.H 



/* 

* $Id: SDE . h, v 1.1. 1.1 1998/01/14 03:40:05 greg Exp $ 

* SDE.h — Software Base Search Interface 

* 

* Header file for the temporary syntax directed editor. This will be replaced 

* by the syntax directed editor in CAPS. 

* 

* Naval Postgraduate School 

* January 13, 1998 

-k 

* Written by Gregory L. Meckstroth 

* 

*/ 

void SDE (Widget parent, char **filename, char **string); 
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O. SDE.C 



/* 



* $ Id : SDE.C, v 1.3 1998/01/18 16:35:45 greg Exp $ 

★ 

* SDE.C -- Software Base Search Interface 

★ 

* Source code for the temporary "Syntax Directed Editor". The functionality 

* that is supplied by SDE will be replaced by the Syntax directed Editor in 

* CAPS. SDE is a simple editor and not a real syntax directed editor. 

* Creating a functional Syntax Directed Editor is beyond the scope of this 

* Thesis. 



* Entry points: SDE. 

★ 

* Naval Postgraduate School 

* January 11, 1998 

* 

* Written by Gregory L. Meckstroth 

V 



#include <Xm/Xm.h> 

# include <Xm/Text.h> 
#include <Xm/Label.h> 
#include <Xm/Form.h> 
#include <Xm/PushB.h> 

# include <Xm/RowColumn . h> 
#include <Xm/Separator . h> 



#include "Gui.h" 

#include "SearchDialog . h" 
#include "Menu.h" 

#include "Callbacks . h" 
#include "Utils. h" 
#include " PromptDialog . h" 
#include "SDE.h" 



#define EDITOR_RUNNING ' r 1 
#define EDITOR_DONE ’d' 

#def ine EDITOR_CANCELED ' c' 

/* 

* Declarations for local functions. 

*/ 

static void 

cutCB (Widget widget, XtPointer client_data, XtPointer call_data); 
static void 

copyCB (Widget widget, XtPointer client_data, XtPointer call_data) ; 
static void 

pasteCB (Widget widget, XtPointer client_data, XtPointer call_data) ; 
static void 

okCB (Widget widget, XtPointer client_data, XtPointer call_data); 
static void 

cancelCB (Widget widget, XtPointer client_data, XtPointer call_data) ; 
static void 

closeCB (Widget widget, XtPointer client_data, XtPointer call_data) ; 
static void 

exitCB (Widget widget, XtPointer client_data, XtPointer call_data) ; 

/* 

* A simple text editor for making changes to the PSDL query/spec. The 

* functionality that is supplied by this editor will be replaced by the CAPS 

* Syntax Directed Editor. The interface to the CAPS SDE was unknown at the 

* time that this editor was written so some modifications to other routines 
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* may be necessary. 
*/ 

void 



SDE (Widget 


parent , 


char 


* * filename, 


char 

{ 


**string) 


Widget 


dialog; 


Widget 


ok_btn; 


Widget 


cancel_btn; 


Widget 


query_text ; 


Widget 


menubar; 


Widget 


filemenu; 


Widget 


editmenu; 


Widget 


f ilename_text 


Widget 


label; 



Arg args [20] / 

Cardinal n; 

XmString xmstring; 
char *title; 

/* 

* The variable editor_state is used to determine when to exit the event 

* loop. It has three states running, done, and canceled. The initial state 

* is running. When the user presses the OK or cancel button the state is 

* changed and the event loop will exit. 

*/ 

static char editor_state; 

/* 

* The variable callback_data is used to pass data to the file callbacks. 

*/ 



static F I LEDLG_DAT A callback_data ; 

/* 

* Create the editors dialog box 
*/ 

title = "3D Editor"; 
n = 0; 

SETARG (args [n] , XmNautoUnmanage , False, n) ; 

SETARG (args [n] , XmNwidth, DIALOG_WIDTH, n) ; 

SETARG (args [n] , XmNheight, DIALOG_HEIGHT / 2, n); 

SETARG (args [n] , XmNtitle, title, n) ; 

SETARG (args [n] , XmNiconName , title, n) ; 

dialog = XmCreateFormDialog (parent, "sbsdialog", args, n) ; 
/* 

* save the dialog widget for the file callback. 

*/ 

callback_data . parent = dialog; 

/* 

* Create menubar with file and edit menus. 

*/ 

n = 0; 

SETARG (args (n] , XmNtopAttachment , XmATT AC H_FORM , n) ; 
SETARG (args [n] , XmNlef tAttachment , XmATT ACH_FORM, n); 
SETARG (args [n] , XmNrightAttachment , XmATTACH_FORM, n) ; 

menubar = XmCreateMenuBar (dialog, "menubar", args, n) ; 

XtManageChild (menubar ) ; 

filemenu = CreateMenu (menubar , "sbsmenu", "File", ’ F * ) ; 
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(void) AddMenuItem( filemenu, "open", 

"Open" , 

"Ctrl+O", "Ctrl<Key>o" , 'O', 

(XtCallbackProc) openCB, 

(XtPointer) & callback_data) ; 

( void) AddMenu Item ( filemenu, "edit" , 

"Edit", 

"Ctrl+E" , "Ctrl<Key>e" , ' E ' , 

(XtCallbackProc) editCB, 

(XtPointer) & callback_data) ; 

(void) XtVaCreateManagedWidget ( "sep", xmSeparatorWidgetClass , filemenu, NULL) 

(void) AddMenuItem( filemenu, "save", 

"Save ", 

"Ctrl+S", "Ctrl<Key>s" , 'S', 

(XtCallbackProc) saveCB, 

(XtPointer) & callback_data) ; 

( void) AddMenuItem ( filemenu, "saveas " , 

"Save As", 

"Ctrl+A" , "Ctrl<Key>a" , 'A', 

(XtCallbackProc) saveasCB, 

(XtPointer) & callback_data); 

(void) XtVaCreateManagedWidget ( "sep" , xmSeparatorWidgetClass, filemenu, NULL) 

(void) AddMenuItem ( filemenu, "close" , 

"Close" , 

"Ctrl+W", "Ctrl<Key>w" , 'C', 

(XtCallbackProc) closeCB, 

(XtPointer) dialog) ; 

(void) AddMenuItem ( filemenu, "exit", 

"Exit", 

"Ctrl+Q" , "Ctrl<Key>Q" , 'x', 

(XtCallbackProc) exitCB, 

(XtPointer) dialog) ; 

editmenu = CreateMenu (menubar , "edit", "Edit", 'E'); 

(void) AddMenuItem (editmenu, "cut" , 

"Cut" , 

"Ctrl+X", "Ctrl<Key>x" , 'T', 

(XtCallbackProc) cutCB, 

(XtPointer) & callback_data) ; 

(void) AddMenuItem (editmenu, "copy" , 

"Copy", 

"Ctrl+C" , "Ctrl<Key>c" , 'C', 

(XtCallbackProc) copyCB, 

(XtPointer) & callback_data) ; 

(void) AddMenuItem (editmenu, "paste", 

"Paste", 

"Ctrl+V", "Ctrl<Key>v", 'P', 

(XtCallbackProc) pasteCB, 

(XtPointer) & callback_data) ; 



/* 

* Create a text box for the file name so that the user will know which 

* file they are editing. 

*/ 

xmstring = XmStringCreateSimple ( "File name:"); 
label = XtVaCreateManagedWidget ( "sbslabel" , 
xmLabelWidgetClass , dialog, 

XmNlabelString, xmstring, 

XmNtopAttachment, XmATTACH_WI DGET , 

XmNtopWidget , menubar, 

XmNtopOf f set, 5, 

XmNle ft Attachment, XmATT AC H_FORM , 

XmNleftOf f set , 5, 
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XmN right Attachment, XmATTACH_NONE , 
NULL) ; 

XtManageChild (label) ; 

XmStringFree (xmstring) ; 



filename_text = XtVaCreateManagedWidget ( "sbstext" / 
xmTextWidgetClass, dialog, 

XmNeditMode, XmSINGLE_LINE_EDIT/ 

XmNeditable, True, 

XmNshadowThickness , 1, 

XmNmarginHeight, 2, 

XmNcursorPositionVisible, True, 

XmNtopAttachment, XmATTACH_WI DGET , 

XmNtopWidget, menubar, 

XmNtopOf f set, 5, 

XmNle ft Attachment , XmATTACH_WIDGET, 

XmNlef tWidget, label, 

XmNlef tOff set, 5, 

XmNrightAttachment, XmATTACH_FORM, 

XmNrightOf f set, 5, 

NULL) ; 



/* 

* Save the filename text widget for use in the file callbacks . 

*/ 

callback_data . fname_text = f ilename_text; 

/* 

* If their is an initial file name display it for the usr to see. 
*/ 



if ( *f ilename != NULL) 

XmTextSetString ( f ilename_text , * filename) ; 

XtManageChild ( f ilename_text ) ; 

/* 

* Setup the ok button before the query text widget so that the bottom of 

* the query text widget can be attached to the ok button. 

*/ 



ok_btn = XtVaCreateManagedWidget ( "OK", 
xmPushButtonWidgetClass , dialog, 

XmNwidth, BUTTON_WIDTH, 

XmNheight, BUTTON_HEIGHT , 

XmNlef tAttachment, XmATTACH_FORM , 

XmNlef tOff set, 20, 

XmNrightAttachment, XmATTACH_NONE, 
XmNtopAttachment, XmATTACH_NONE, 
XmNbottomAttachment, XmATTACH_FORM, 
XmNbottomOf f set , 10, 

NULL) ; 

XtAddCallback (ok_btn, 

XmNactivateCallback, 

(XtCallbackProc) okCB, 

(XtPointer) & editor_state) ; 

XtManageChild (ok_btn) ; 

cancel_btn = XtVaCreateManagedWidget ( "Cancel " , 
xmPushButtonWidgetClass, dialog, 

XmNwidth, BUTTON_WIDTH, 

XmNheight, BUTTON_HEIGHT, 

XmNlef tAttachment, XmATTACH_WI DGET , 

XmNlef tWidget, ok_btn, 

XmNlef tOffset, 10, 

XmNrightAttachment, XmATTACH_NONE, 
XmNtopAttachment, XmATTACH_NONE, 
XmNbottomAttachment, XmATTACH_FORM, 
XmNbottomOf f set, 10, 
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NULL) ; 



XtAddCallback (cancel_btn, 
XmNactivateCallback, 
(XtCallbackProc) cancelCB, 
(XtPointer) & editor_state) / 

XtManageChild (cancel_btn) ; 

/* 

* Create the text edit widget 
*/ 



n = 0; 

SETARG (args [n] , 
SETARG (args [n] , 
SETARG (args [n] , 
SETARG (args [n] , 
SETARG (args [n] , 
SETARG (args [n] , 
SETARG (args [n] , 
SETARG (args [n] , 
SETARG (args [n] , 
SETARG ( args [n] , 
SETARG (args [n] , 



XmNeditMode, XmMULTI_LINE_EDIT, n); 
XmNtopAttachment, XmATTACH_WIDGET, n) ; 
XmNtopWidget, filename_text , n) ; 

XmNtopOf fset , 5, n) ; 

XmNlef t Attachment , XmATTACH_FORM, n); 
XmNleftOf f set , 5, n); 

XmNright Attachment, XmATTACH_FORM, n) ; 
XmNrightOf fset , 5, n); 

XmNbottomAttachment , XmATTACH_WIDGET, n) ; 
XmNbottomWidget, ok_btn, n) ; 

XmNbottomOf f set , 5, n) ; 



query_text = XmCreateScrolledText (dialog, "sbstext", args, n) ; 
/* 

* Save the text widget for the file callbacks. 

*/ 



callback_data . text = query_text; 

XtManageChild (query_text) ; 

/* 

* If we have an initial file name try to load the text from it. 
*/ 



if (*filename) 

{ 

char *text; 

if (LoadFile (* filename, &text) != -1) 

{ 

XmTextSetString (query_text, text) ; 

XtFree (text) ; 

) 

} 

XtManageChild (dialog) ; 

/* 

* Wait for the editor to exit. 

*/ 

editor_state = EDITOR_RUNNING; 
while (editor_state == EDITOR_RUNNING) 

XtAppProcessEvent (XtWidgetToApplicationContext (dialog) , XtIMAll) ; 

/* 

* If the user did not cancel the editor return the text and file name 
*/ 



if ( editor_state == EDITOR_DONE) 

{ 

*string = XmTextGetString (query_text ) ; 
if (**string == '\0') 

{ 

XtFree ( *string) ; 

♦string = NULL; 

} 

♦filename = XmTextGetString ( filename_text ) ; 
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if (**filename == ' \0 ’ ) 

{ 

XtFree ( *filename) ; 

* filename = NULL; 

) 

) 

else 

{ 

^string = NULL; 

} 

if (XtlsManaged (dialog) ) 

XtUnmanageChild (dialog) ; 

} 

/* 

* Cut callback that copies the primary selected text to the clipboard and then 

* deletes the primary selected text. 

*/ 

static void 

cutCB (Widget widget, 

XtPointer client_data, 

XtPointer call_data) 

{ 

Widget text = ( (FILEDLG_DATA *) client_data) ->text ; 

if (text 1= NULL) 

{ 

XmTextCut (text, 

XtLastTimes tampProcessed (XtDisplay (text) ) ) ; 



) 

/* 

* Copy callback that copies the primary selected text to the clipboard 
*/ 

static void 

copyCB (Widget widget, 

XtPointer client_data, 

XtPointer call_data) 

{ 

Widget text = ( ( FILEDLG_DATA *) client_data) ->text ; 

if (text 1 = NULL) 

{ 

XmTextCopy ( text, 

XtLastTimestampProcessed (XtDisplay (text) ) ) ; 

} 

) 



/* 

* Paste callback that inserts the clipboard selection at the insertion cursor. 
*/ 

static void 

pasteCB (Widget widget, 

XtPointer client_data, 

XtPointer call_data) 

{ 

Widget text = ( ( FILEDLG_DATA *) client_data ) ->text ; 

if (text ! = NULL) 

{ 

XmTextPaste (text) ; 



/* 

* Ok callback closes the editor and returns the text to the calling program. 

V 
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static void 

okCB (Widget widget, 

XtPointer client_data, 

XtPointer call_data) 

{ 

char * running = (char * ) client_data; 

* running = EDITOR_DONE; 

} 

/* 

* Cancel callback closes the editor, the text is lost. 
*/ 

static void 

cancelCB (Widget widget, 

XtPointer client_data, 

XtPointer ;all_data) 

{ 

char * running = (char * ) client_data; 

* running = EDITOR_CANCELED; 

} 



/* 

* Close the editor but give the user a chance to go back to the editor 
*/ 

static void 

closeCB (Widget widget, 

XtPointer client_data, 

XtPointer call_data) 

{ 

Widget parent = (Widget) client_data; 

if (ModalPromptDialog (parent , "Warning", "Close editor?")) 
return; 

if (XtlsManaged (parent) ) 

XtUmtanageChild (parent) ; 

} 



/* 

* Exit the program but give the user a chance to go back to the editor 
*/ 

static void 

exitCB (Widget widget, 

XtPointer client_data, 

XtPointer call_data) 

{ 

Widget parent = (Widget) client_data; 

if (ModalPromptDialog (parent, "Warning", "Exit program?")) 
return; 

exit ( 0 ) ; 



P. SEARCHDIALOG.H 



/* 

* $Id: SearchDialog . h, v 1.2 1998/01/18 18:50:09 greg Exp $ 

★ 

* SearchDialog . h -- Software Base Search Interface 

* 

* Header file for the search dialog. 

* 

* Naval Postgraduate School 

* January 13, 1998 

* 

* Written by Gregory L. Meckstroth 
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void 

SearchDialog (Widget parent, XtCallbackProc callback); 
char * 

ModalSearchDialog (Widget parent) ; 



Q. SEARCHDIALOG. C 



/* 

* $Id: SearchDialog . C, v 1.6 1998/01/18 18:50:09 greg Exp $ 

* 

* SearchDialog . C — Software Base Search Interface 

* 

* Source code for the CAPS software base search dialog. This dialog is the 

* interface to the ADA software base search that uses profile filtering and 

* signature matching. The dialog facilities the input of a PSDL specification 

* that is used as a query in the search. The output is displayed and the user 

* can select the desired component. 

* 

* Entry points: SearchDialog, ModalSearchDialog. 

★ 

* Naval Postgraduate School 

* January 13, 1998 

* 

* Written by Gregory L. Meckstroth 

★ 

*/ 



#include <stdio.h> 
#include <stdlib.h> 
#include <iostream.h> 
#include <sys/types . h> 
#include <sys/stat.h> 

#include <Xm/Xm.h> 
#include <Xm/Text.h> 
#include <Xm/Label.h> 
#include <Xm/ScrolledW.h> 
#include <Xm/Form.h> 
#include <Xm/PushB.h> 
#include <Xm/ToggleB . h> 
#include <Xm/PanedW . h> 
#include <Xm/RowColumn . h> 
#include <Xm/Separator . h> 
#include <Xm/FileSB.h> 



#include "Gui.h" 

#include "SearchDialog . h" 
#include "PromptDialog . h" 
#include "Menu.h" 

#include "SDE.h" 

#include "DisplayProgress . h" 
#include "Callbacks . h" 
#include "Utils. h" 



/* 

* Names for files used as buffers to pass the search output to the interface. 
*/ 



#def ine PF_FILE_BUFFER " . . /IO_Prof ile_Fil tering .buf' " 

#def ine SM_FILE_BUFFER " . . /IO_Signature_Matching .buf " 

/* 

* A simple linked list to keep track of which file name is associated with 

* which toggle button. This makes it easier to free memory when it is no 

* longer needed. 

*/ 



struct MATCH_LIST 

{ 
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char * filename; 
Widget tbutton; 
MATCH LIST *next; 



/ 



The SEARCH_DATA structure is used to pass data to the callback routines. 

parent: widget to use as the parent for dialog construction. 

fname_text: text widget for file name display. 

prank_text: text widget of the profile rank. 

frank_text: text widget of the signature rank. 

sw_parent: signature window parent. 

callback: Callback to pass the selected component name to. 

Matches: linked list of toggle buttons and file names that the user can 
choose from. 

/ 



Struct SEARCH_DATA 
{ 

Widget parent; 

Widget fname_text; 

Widget prank_text; 

Widget srank_text; 

Widget sw_parent; 

XtCallbackProc callback; 

MATCH_LIST *matches; 

}; 

/* 

* The toggle button uses selected_component as the currently selected button. 

* This is also the return value for the ok callback. So to make things less 

* complicated just make it global. 

*/ 

static MATCH_LIST *selected_component = NULL; 

/* 

* The ADA code will call prof ile_f ilter ing_doneCB when the profile filtering 

* is completed. Trying to pass profile_text as an argument complicated the ADA 

* interface so make it global to the search dialog. 

*/ 

static Widget prof ile_text ; 

/* 

* Save these to keep the users changes for next time. 

*/ 

static char *save_query_f ilename = NULL; 
static float min_profile_rank = 1.00; 
static float min_signature_rank = 1.00; 

/* 

* Used by the modal search dialog. done_with_dialog while true the event loop 

* will continue running. Setting this to false allows the event loop to exit. 

* return_value is set by the callback routine to the modal dialog return 

* value. 

*/ 

static int done_with_dialog; 
static char * return_value ; 

/* 

* Declarations for local functions. 

*/ 

static int 

remove_nl (char *cptr) ; 
static Widget 

fgetlabel (Widget parent, Widget previous, FILE * stream); 
static void 

clear_search (SEARCH_DATA * sdata); 
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static void 

closeCB (Widget widget, XtPointer client_data, XtPointer call_data) ; 
static void 

exitCB (Widget widget, XtPointer client_data, XtPointer call_data) ; 
static void 

cancelCB (Widget widget, XtPointer client_data, XtPointer call_data); 
static void 

okCB (Widget widget, XtPointer client_data, XtPointer call_data) ; 
static void 

togglebuttonCB (Widget widget, XtPointer client_data, XtPointer call_data) ; 
void 

profile_f iltering_doneCB ( ) ; 



static void 

do_searchCB (Widget widget, XtPointer client_data, XtPointer call_data) ; 
/* 

* Declaration for the "ADA export" search routine. 

V 

extern ”C" sb_search (char *sbroot, 
char *qfname, 
float *mprank, 
float *msrank, 
char *pf_name, 
char *sm name) ; 



/* 

* Display the software base search modal dialog. Returns selected component 

* name . 

*/ 

char * 

ModalSearchDialog (Widget parent) 

{ 

done_with_dialog = False; 

SearchDialog (parent , NULL) ; 

/* 

* Wait for a response to the dialog. When the OK or cancel button is 

* pressed done_with_dialog will be set true causing the loop to terminate. 

* Return_value is also set to the appropriate value in the callback. 

*/ 

done_with_dialog = False; 
while ( ! done_with_dialog) 

XtAppProcessEvent (XtWidgetToApplicationContext (parent) , XtIMAll) ; 
return return_value; 

} 



/* 

* Display the software base search dialog. 
*/ 

void 

SearchDialog (Widget parent, 

XtCallbackProc callback) 

( 

Widget dialog_window; 

Widget scrolled_query_window; 

Widget query_text; 

Widget query_fname_text; 

Widget scrolled_prof ile__window; 

Widget prof ile_rank_text ; 
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Widget signature_rank_text / 

Widget scrolled_signature_window; 

Widget signature_window; 

/* 

* The following static variables are used by callbacks after SearchDialog 

* returns. 

V 

static F I LEDLG_DAT A f iledlg_data; // file callbacks 

static SEARCH_DATA search_data; // Search results 

Widget caps_label; 

Widget prof ile_label ; 

Widget signature_label; 

Widget previous; 

Widget query_label; 

Widget search_btn; 

Widget ok_btn; 

Widget cancel_btn; 

Widget menubar; 

Widget querymenu; 

Widget searchmenu; 

Widget helpmenu; 

char IOBuf fer [256] ; 
char *title; 

Arg args [20] ; 

Cardinal n; 

XmString xmstring; 

/* 

* Start with no match 

V 

search_data .matches = NULL; 
search_data . callback = callback; 

/* 

* Create the dialog box. 

V 



title = "Software Base Search"; 
n = 0; 

SETARG (args [n] , 

SETARG (args [n] , 

SETARG (args [n] ( 

SETARG (args [n] , 

SETARG ( args [n] , 

SETARG (args [n] , 



XmNautoUnmanage, False, 
XmNwidth, DIALOG_WIDTH, 
XmNheight, DIALOG_HEIGHT 
XmNnoResize, True, n) ; 
XmNtitle, title, n) ; 
XmNiconName, title, n) ; 



n) ; 
n) ; 

, n) ; 



dialog_window = XmCreateFormDialog (parent , "sbsdialog", args, n) ; 



/* 

* Save the dialog widget for later use. 
*/ 



search_data .parent = dialog_window; 
filedlg_data . parent = dialog_window; 

initilize_display (parent ) ; 

/* 

* Create menubar 
*/ 



n = 0; 

SETARG (args [n] , XmNtopAttachment , XmATTACH_FORM, n) ; 
SETARG (args [n] , XmNle ft Attachment , XmATTACH_FORM, n) ; 
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SETARG (args [n] , XmNrightAttachment , XmATTACH_FORM, n) ; 
menubar = XmCreateMenuBar ( dialog_window, "sbsmenubar", args, n) ; 
previous = menubar; 

XtManageChild (menubar ) ; 

/* 

* Create query menu. Callbacks for this menu are in Callbacks. C. 

*/ 

querymenu = CreateMenu (menubar, "sbsmenu", "Query’', ' Q'); 

(void) AddMenuI tern (querymenu, "new” , 

"New” , 

"Ctrl+N" , "Ctrl<Key>n" , ' N ' , 

(XtCallbackProc) newCB, 

(XtPointer) & filedlg_data ) ; 

(void) AddMenuI tern (querymenu, "open” , 

"Open" , 

"Ctrl+O" , "Ct rl<Key>o" , 'O', 

(XtCallbackProc) openCB, 

(XtPointer) & filedlg_data) ; 

(void) AddMenuI tern (querymenu, "edit” , 

"Edit”, 

”Ctrl+E”, ”Ctrl<Key>e" , 'E\ 

(XtCallbackProc) editCB, 

(XtPointer) & f iledlg_data) ; 

( void) XtVaCreateManagedWidget ( "sep”, xmSeparatorWidgetClass , querymenu, NULL) 

(void) AddMenuI tern (querymenu, "save" , 

"Save”, 

"Ctrl+S" , "Ctrl<Key>s", 'S', 

(XtCallbackProc) saveCB, 

(XtPointer) & f iledlg_data) ; 

(void) AddMenuItem( querymenu, "saveas", 

"Save As", 

"Ctrl+A", "Ctrl<Key>a” , 'A', 

(XtCallbackProc) saveasCB, 

(XtPointer) & f iledlg_data ) ; 

(void) XtVaCreateManagedWidget ( "sep", xmSeparatorWidgetClass, querymenu, NULL) 

( void) AddMenuI tem( querymenu, "close", 

"Close", 

"Ctrl+W" , "Ctrl<Key>w" , 'C', 

(XtCallbackProc) closeCB, 

(XtPointer) & search_data) ; 

(void) AddMenuI tern (querymenu, "exit" , 

"Exit", 

"Ctrl+Q" , "Ctrl<Key>Q" , 'x', 

(XtCallbackProc) exitCB, 

(XtPointer) NULL) ; 



/* 

* Create the search menu. Callbacks are implemented locally 
*/ 

searchmenu = CreateMenu (menubar, "sbsmenu", "Search", ’S'); 

( void) AddMenuItem (searchmenu, "search" , 

"Start", 

"Ctrl+T" , "Ctrl<Key>t " , ’t', 

(XtCallbackProc) do_searchCB, 

(XtPointer) & search_data) ; 



/* 

* Create Help menu. 

V 
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helpmenu = CreateHelpMenu (menubar , "sbsmenu", ’’Help", ' H'); 

xmstring = XmStringCreateSimple ( "CAPS Software Base Search”); 
caps_label = XtVaCreateManagedWidget ( "sbslabel” , 
xmLabelWidgetClass , dialog_window / 

XmNlabelString, xmstring, 

XmNtopAttachment, XmATTACH_WIDGET, 

XmNtopWidget , previous, 

XmNtopOf f set, 5, 

XmNbottomAttachment, XmATTACH_NONE, 

XmNlef t Attachment , XmATTACH_POSITION, 

XmNlef tPosition, 35, 

XmNrightAttachment, XmATTACH_NONE, 

NULL) ; 

XmStringFree (xmstring) ; 

/* 

* Query_label and query_fname_text display the current query file name for 

* the user 
*/ 

previous = caps_label; 

xmstring = XmStringCreateSimple ( "PSDL Query:"); 
query_label = XtVaCreateManagedWidget ( "sbslabel” , 
xmLabelWidgetClass , dialog_window, 

XmNlabelString, xmstring, 

XmNtopAttachment, XmATTACH_WIDGET, 

XmNtopWidget, previous, 

XmNtopOf f set , 5, 

XmNle f tAttachment , XmATTACH_POSITION, 

XmNlef tPosition, 15, 

NULL) ; 

XmStringFree (xmstring) ; 

query_fname_text = XtVaCreateManagedWidget ( "sbstext" , 
xmTextWidgetClass, dialog_window, 

XmNeditMode, XmSINGLE_LINE_EDIT, 

XmNeditable, True, 

XmNshadowThickness, 1, 

XmNmarginHeight, 2, 

XmNcursorPositionVisible, True, 

XmNtopAttachment, XmATTACH_W I DGET , 

XmNtopWidget, previous, 

XmNtopOf f set , 5, 

XmNlef tAttachment, XmATT ACH_W I DGET , 

XmNlef tWidget, query_label, 

XmNleftOf f set, 5, 

XmNrightAttachment, XmATTACH_FORM, 

XmNrightOf f set, 10, 

NULL) ; 



/* 

* Save the widget so that the file and search callbacks can change the name 

* when the user enters a new one. 

*/ 

f iledlg_data . fname_text = query_fname_text; 
search_data . fname_text = query_fname_text; 

/* 

* This callback will update the file name and query text if the user types 

* a return in the fname text box. 

*/ 

XtAddCallback (query_fname_text , XmNactivateCallback, 

(XtCallbackProc) textchangedCB, 

(XtPointer) & f iledlg_data) ; 

previous = query_label; 

XtManageChild (query_fname_text) ; 
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* Setup scrolled window to display query text. 

*/ 

scrolled_query_window = XtVaCreateManagedWidget { "sbswindow", 
xmScrolledWindowWidgetClass, dialog_window, 

XmNwidth, I N FO_W I ND OW_W I DT H , 

XmNh eight, INFO_WINDOW_HEIGHT, 

XmNle f tAttachment , XmATT ACH_FORM , 

XmNright Attachment , XmATTACH_FORM, 

XmNtopAttachment , XmATTACH_Wl DGET , 

XmNtopWidget , query_label, 

XmNtopOf f set , 5, 

XmNbottomAttachment , XmATTACH_NONE , 

XmNresizable, True, 

XmNlef toff set , 5, 

XmNrightOf f set , 5, 

XmNbottomOf fset , 5, 

XmNscrollingPolicy, XmAUTOMATIC, 

XmNscrollBar Display Policy, XmSTATIC, 
XmNscrolledWindowMarginWidth, 5, 
XmNscrolledWindowMarginHeight , 5, 

XmNscrollVertical, False, 

XmNscrollHorizontal, True, 

NULL) ; 

previous = scrolled_query_window; 

query_text = XtVaCreateManagedWidget ( "sbstext" , 
xmTextWidgetClass, scrolled_query window, 

XmNwidth, INFO_WINDOW_WIDTH, 

XmNheight , INFO_WINDOW_HEIGHT, 

XmNeditMode, XmMULTI_LINE_EDIT, 

XmNshadowThickness, 0, 

XmNmarginHeight , 0, 

XmNscrollHorizontal, False, 

XmNeditable, False, 

XmNtraversalOn, False, 

XmNcursorPositionVisible, False, 

NULL) ; 



/* 

* Save the widget so that the query text can be updated when the user 

* changes the file name or edits that text 

V 

f iledlg_data . text = query_text; 

XmScrolledWindowSetAreas ( scrolled_query_window, 

(Widget) NULL, 

(Widget) NULL, 
query_text ) ; 

XtManageChild (query_text ) ; 

/* 

* If the user is restarting the dialog try to use the file name that was 

* entered 

V 



if ( save_query_f ilename != NULL) 

{ 

char *text; 

XmTextSetString ( query_fname_text , save_query_f ilename ) ; 

if (LoadFile (save_query_f ilename, &text) != -1 && text != NULL) 

{ 

XmTextSetString (query_text , text ) ; 

XtFree (text) ; 

} 

XtFree ( save_query_f ilename) ; 

} 

/* 
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* Create a text box for the profile rank. This is where the rank is stored 

* so that the user can make changes before running the search. 

*/ 

xmstring = XmStringCreateSimple ( "Prof ile Filtering Minimum Rank:"); 
profile_label = XtVaCreateManagedWidget ( "sbslabel" , 
xmLabelWidgetClass , dialog_window, 

XmNlabelString, xmstring, 

XmNtopAttachment, XmATTACH_Wl DGET , 

XmNtopWidget, previous, 

XmNtopOf fset, 5, 

XmNle f tAtt achment , XmATTACH_POS ITI ON , 

XmNlef tPosition, 15, 

NULL) ; 

XmStringFree (xmstring) ; 

sprintf (IOBuf fer, "%.2f", min_profile_rank) ; 

prof ile_rank_text = XtVaCreateManagedWidget ( "sbstext" , 
xmTextWidgetClass, dialog_window, 

XmNeditMode, XmS INGLE_LINE_ED IT , 

XmNeditable, True, 

XmNshadowThickness, 1, 

XmNmarginHeight, 2, 

XmNcolumns, 5, 

XmNcursorPositionVisible, True, 

XmNtopAttachment, XmATT ACH_W I DGET , 

XmNtopWidget, previous, 

XmNtopOf fset, 5, 

XmNle ft Attachment, XmATT ACH_W I DGET, 

XmNlef twidget, prof ile_label, 

XmNleftOf fset, 5, 

NULL) ; 



/* 

* Save the widget so that the search callbacks can get the profile rank 

* when the user runs the search. 

*/ . 

search_data . prank_text = prof ile_rank_text; 

previous = prof ile_label; 

XmTextSetString (prof ile_rank_text, IOBuf fer) ; 

XtManageChild (prof ile_rank_text ) ; 

/* 

* Create a scrolled window for the profile filtering results. 

*/ 

scrolled_prof ile_window = XtVaCreateManagedWidget ( "sbswindow", 
xmScrolledWindowWidgetClass, dialog_window, 

XmNwidth, INFO_WINDOW_WIDTH, 

XmNheight , INFO_WINDOW_HEIGHT, 

XmNlef tAtt achment, XmATT ACH_FORM, 

XmN right Attachment, XmATT ACH_FORM , 

XmNtopAttachment, XmATTACH_WIDGET, 

XmNtopWidget, profile_label, 

XmNtopOf fset, 5, 

XmNbottomAtt achment, XmATTACH_NONE , 

XmNresizable, True, 

XmNlef tOf fset, 5, 

XmNrightOf fset , 5, 

XmNbottomOf fset , 5, 

XmNscrollingPolicy, XmAUTOMATIC, 

XmNscrollBarDisplayPolicy, XmSTATIC, 

XmNscrolledWindowMarginWidth, 5, 

XmNscrolledWindowMarginHeight , 5, 

XmNscrollVertical, False, 

XmNscrollHorizontal, True, 

NULL) ; 

previous = scrolled_profile_window; 

profile_text = XtVaCreateManagedWidget ( "sbstext", 
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xmTextWidgetClass , scrolled_prof ile_window, 

XmNwidth, INFO_WINDOW_WIDTH, 

XmNheight, INFO_WINDOW_HEIGHT, 

XmNeditMode, XmMULT I_LI NE_ED I T , 

XmNshadowThickness , 0, 

XmNmarginHeight, 0, 

XmNscrollHorizontal , False, 

XmNeditable, False, 

XmNtraversalOn, False, 

XmNcursorPositionVisible, False, 

NULL) ; 

XmScrolledWindowSet Areas ( scrolled_prof ile_window, 

(Widget) NULL, 

(Widget) NULL, 
profile_text ) ; 

XtManageChild (prof ile_text ) ; 

/* 

* Create a text box for the signature rank. This is where the rank is 

* stored so that the user can make changes before running the search. 

*/ 

xmstring = XmStringCreateSimple ( "Signature Matching Minimum Rank:"); 

signature_label = XtVaCreateManagedWidget ( "sbslabel" , 
xmLabelWidgetClass , dialog_window, 

XmNlabelString, xmstring, 

XmNtopAttachment , XmATTACH_WIDGET, 

XmNtopWidget, previous, 

XmNtopOf f set , 5, 

XmNle ft Attachment , XmATTACH_POSITION, 

XmNle ft Position, 15, 

NULL) ; 

XmStringFree (xmstring) ; 

sprintf ( IOBuf f er, "%.2f", min_signature_rank) ; 

signature_rank_text = XtVaCreateManagedWidget ( "sbstext", 
xmTextWidgetClass, dialog_window, 

XmNeditMode, XmSINGLE_LINE_EDIT, 

XmNeditable, True, 

XmNshadowThickness , 1, 

XmNmarginHeight , 2, 

XmNcoluinns, 5, 

XmNcursorPositionVisible, True, 

XmNtopAttachment, XmATTACH_WIDGET, 

XmNtopWidget, previous, 

XmNtopOf f set, 5, 

XmNle f tAttachment , XmATTACH_WI DGET , 

XmNleftWidget, signature_label, 

XmNlef tOff set , 5, 

NULL) ; 



/* 

* Save the widget so that the search callbacks can get the signature rank 

* when the user runs the search. 

*/ 

search_data . srank_text = signature_rank_text; 
previous = signature_label; 

XmTextSetString (signature_rank_text, IOBuf fer) ; 

XtManageChild (signature_rank_text) ; 



/* 

* Create a scrolled window for the profile filtering results. 

*/ 

scrolled_signature_window = XtVaCreateManagedWidget ( "sbswindow" , 
xmScrolledWindowWidgetClass , dialog_window, 

XmNwidth, INFO_WINDOW_WIDTH, 

XmNhe i g h t , IN FO_W I N DOW_H EIGHT, 

XmNlef tAttachment , XmATTACH_FORM, 
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XmN right Attachment, XmATTACH_FORM, 
XmNtopAttachment , XmATTACH_WIDGET, 
XmNtopWidget , signature_label, 
XmNtopOf f set , 5, 

XmNbottomAttachment, XmATTACH_NONE , 
XmNresizable, True, 

XmNlef tOff set , 5, 

XmNrightOf f set, 5, 

XmNbottomOf f set , 5, 
XmNscrollingPolicy, XmAUTOMATIC, 
XmNscrollBarDisplayPolicy, XmSTATIC, 
XmNscrolledWindowMarginWidth, 5, 
XmNscrolledWindowMarginHeight , 5, 
XmNscrollVertical, False, 
XmNscrollHorizontal , True, 

NULL) ; 



/* 

* Save the widget so that the search callbacks can create signature match 

* results widgets in it. 

*/ 

search_data . sw_parent - scrolled_signature_window; 
previous = scrolled_signature_window; 

signature_window = XtVaCreateManagedWidget ( "sbsform" , 
xmFormWidgetClass, scrolled_signature_window, 

XmNwidth, INFO_WINDOW_WIDTH, 

XmNheight, INFO_WINDOW_HEIGHT, 

NULL) ; 

XmScrolledWindowSetAreas ( scrolled_signature_window, 

(Widget) NULL, 

(Widget) NULL, 
signature_window) ; 



/* 

* Create the push buttons at the bottom of the dialog box. 
*/ 

xmstring - XmStringCreateSimple ( "OK" ) ; 

ok_btn = XtVaCreateManagedWidget ( "sbslabel", 
xmPushButtonWidget Class, dialog_window, 

XmNlabelString, xmstring, 

XmNwidth, BUTTON_WIDTH, 

XmNheight, BUTTON_HE I GHT , 

XmNle ft Attachment , XmATTACH_FORM, 

XmNleftOf f set , 20, 

XmNrightAttachment , XmATTACH_NONE, 

XmNtopAttachment, XmATTACH_NONE , 

XmNbottomAttachment, XmATTACH_FORM, 

XmNbottomOf f set , 10, 

NULL) ; 

XmStringFree (xmstring) ; 

XtAddCallback (ok_btn, 

XmNactivateCallback, 

(XtCallbackProc) okCB, 

(XtPointer) & search_data) ; 

XtManageChild (ok_btn) ; 

xmstring = XmStringCreateSimple ( "Search" ) ; 

search_btn = XtVaCreateManagedWidget ( "sbslabel" , 
xmPushButtonWidgetClass, dialog_window, 

XmNlabelString, xmstring, 

XmNwidth, BUTTON_WIDTH, 

XmNheight , BUTTON_HEIGHT, 

XmNle ft Attachment, XmATTACH_WI DGET , 

XmNlef tWidget, ok_btn, 

XmNlef tOff set, 10, 

XmNrightAttachment, XmATTACH_NONE, 

XmNtopAttachment, XmATTACH__NONE , 

XmNbottomAttachment, XmATTACH_FORM, 
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XmNbottomOf f set, 10, 

NULL) ; 

XmStringFree (xmstring) ; 

XtAddCallback (search_btn, 

XmNactivateCallback, 

(XtCallbackProc) do_searchCB, 

(XtPointer) & search_data) ; 

XtManageChild ( search_btn) ; 

xmstring = XmStringCreateSimple ( "Cancel") ; 
cancel_btn = XtVaCreateManagedWidget ( "sbslabel " , 
xmPushButtonWidgetClass, dialog_window, 

XmNlabe 1st ring, xmstring, 

XmNwidth, BUTTON_WIDTH, 

XmNheight , BUTTON_HEIGHT, 

XmNle ft Attachment, XmATTACH_WI DGET , 

XmNlef tWidget, search_btn, 

XmNlef tOff set , 10, 

XmNright Attachment, XmATTACH_NONE , 

XmNtopAttachment, XmATTACH_NONE, 

XmNbottomAttachment , XmATTACH_FORM , 

XmNbottomOf f set , 10, 

NULL) ; 

XmStringFree (xmstring) ; 

XtAddCallback (cancel_btn, 

XmNactivateCallback, 

(XtCallbackProc) cancelCB, 

(XtPointer) & search_data) ; 

XtManageChild (cancel_btn) ; 

XtManageChild (dialog_window) ; 

> 

/* 

* Find new line and null it out. Returns length of string. 

*/ 

static int 

remove_nl ( char *cptr) 

{ 

char *first = cptr; 
while ( *cptr 1= '\n') 

{ 

if ( *cptr == ' \0 ' ) 
break; 
cptr++; 

} 

*cptr = ' \ 0 ' ; 
return cptr - first; 

) 

/* 

* Create a label from a line of text that is read from the input stream. The 

* label will be placed in the parent widget after the previous widget. Leading 

* spaces will be skipped. 

*/ 

static Widget 

fgetlabel (Widget parent, Widget previous, FILE * stream) 

{ 

Widget widget; 

XmString xmstring; 
char IObuf [MAXBUFSIZE] ; 
char *ptr - IObuf; 

fgets (IObuf, MAXBUFSIZE, stream); 
remove_nl (IObuf) ; 

while ( *ptr == ' ' ) 

ptr++; 
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xrastring = XmStringCreateSimple (ptr ) ; 
widget = XtVaCreateManagedWidget ( "sbstext" , 
xmLabelWidgetClass, parent, 
XmNlabelString, xmstring, 

XmNtopAttachment , XmATTACH_WIDGET, 
XmNtopWidget, previous, 

XmNtopOf f set, 5, 

XmNle f tAttachment , XmATTACH_FORM , 

XmNlef tOf f set, 25, 

NULL) ; 

XtManageChild (widget ) ; 

XmStringFree (xmstring) ; 
return widget; 



/ + 

* Clear the search results displays and free memory used by data structures. 

*/ 

static void 

clear_search ( SEARCH_DATA * sdata) 

{ 

MATCH_LIST *match; 

MATCH_LIST *next_match; 

if ( sdata->matches == NULL) 
return; 

XmTextSetString (prof ile_text , "") ; 

for (match = sdata->matches ; match != NULL; match = next_match) 

{ 

next_match = match->next; 

XtFree (match->f ilename ) ; 

XtFree((char *) match); 

} 

} 

/* 

* Callback quits program without returning a component selection. 

+ / 

static void 

closeCB (Widget widget, 

XtPointer client_data, 

XtPointer call_data) 

{ 

SEARCH_DATA + data = ( SEARCH_DATA *) client_data; 

char *warning = "A component was selected\nexit without saving?"; 

if ( selected_component != NULL && ModalPromptDialog (data->parent , "Warning" 
return; 

cancelCB (widget, client_data, call_data) ; 

} 

/ + 

* Callback exits program. 

*/ 

static void 

exitCB (Widget widget, 

XtPointer client_data, 

XtPointer call_data) 

( 

exit (0) ; 

} 

/* 

+ Cancel callback 
*/ 

static void 
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warning) ) 



cancelCB (Widget widget, 

XtPointer client_data, 

XtPointer call_data) 

{ 

S E A RC H_D AT A Mata = ( SEARCH_DATA *) client_data; 

/* 

* Save the query filename in case the used restarts the search dialog. 
*/ 

save_query_f ilename * gettext (data->fname_text ) ; 

if (XtlsManaged (data->parent) ) 

XtUnmanageChild (data->parent } ; 

/* 

* The modal search dialog set the call back to NULL. So set its return 

* value 

V 



if (data->callback != NULL) 

(data->callback) (widget, (XtPointer) NULL, (XtPointer) NULL) ; 
else 

return_value = NULL; 
done_with_dialog = True; 
clear_search (data) ; 

} 

/* 

* Ok callback passes the selected component to the applications callback then 

* exits the dialog. 

V 

static void 

okCB (Widget widget, 

XtPointer client_data, 

XtPointer call_data) 

{ 

char * warning = "No module selected\nexit anyway?"; 

SEARCH_DATA + data = ( SEARCH_DATA *) client_data; 

/* 

* If the user did not select a component give them a chance to return to 

* the dialog before exiting. 

*/ 



if (selected_component == NULL) 

{ 

if (ModalPromptDialog (data->parent , "Warning", warning)) 

{ 

return; 

) 

else 

{ 

cancelCB (widget , client_data, call_data) ; 
return; 

} 

} 



/* 

* Save the query filename in case the used restarts the search dialog. 

V 

save_query_filename = gettext (data->fname_text ) ; 

if (XtlsManaged (data->parent) ) 

XtUnmanageChild (data->parent) ; 

/* 

* Pass the component to the callback or if modal set the return value. 
*/ 
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if (data->callback != NULL) 

( data->callback) (widget, (XtPointer) selected_component->f ilename, (XtPointer) 
else 

return_value = selected_component->f ilename; 
done_with_dialog = True; 
clear_search (data) ; 

) 

/* 

* Toggle button callback turns off previously selected button and saves new 

* component . 

*/ 

static void 

togglebuttonCB (Widget widget, 

XtPointer client__data, 

XtPointer call_data) 

{ 

if ( selected_component ) 

{ 

XtVaSetValues ( selected_component->tbutton, 

XmNset , XmUNSET, 

NULL) ; 

} 

selected_component = (MATCH_LIST *) client_data; 

} 

/* 

* Show the user the results of the profile filtering part of the search. This 

* callback is made from the ADA search routine. 

*/ 

void 

prof ile_f iltering_doneCB ( ) 

{ 

char *string; 

/* 

* PF_FILE_BUFFER is the temporary file used to pass the results from the 

* ADA search routines to the GUI interface. 

*/ 

if (LoadFile ( PF_FILE_BUFFER, ^string) > 0) 

{ 

XmTextSetString (prof ile_text , string) ; 

XtFree (string) ; 
remove ( PF_FILE_BUFFER) ; 

} 

else 

XmTextSetString (prof ile_text , "Profile filtering ERROR!."); 

} 

/* 

* Callback searches the software base for matches to the user specified query. 

*/ 

static void 

do_searchCB (Widget widget, 

XtPointer client_data, 

XtPointer call_data) 

{ 

SEARCH_DATA *data = ( SEARCH_DATA *) client_data; 

Widget signature_text ; 

Widget candidates; 

Widget previous_widget ; 

Widget component_id; 

Widget prof ile_rank; 

Widget solution; 

XmString xmstring; 

Cardinal n; 



NULL) 
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Arg args [ 20 ] ; 

FILE * fp; 
char *soltext; 
char *cptr; 

char PTbuffer (MAXBUFSIZE] ; 
char I Obuffer [MAXBUFSIZE] ; 
char ^string; 
char * filename; 
int length; 

int candidates_of fset = 5; 
int nmatchs; 
int position; 

MATCH_LIST *match; 

static Widget signature_window = NULL; 

if (client_data == NULL) 

{ 

cout « ’’Error no data\n" ; 
return; 

} 



/* 

* We have to pass a query file to the ADA search routines. 

V 

filename = gettext ( data->fname_text ) ; 
if (filename == NULL) 

{ 

ModalWarningDialog (data->parent , "Error", "Query not specified"); 
return; 

} 

/* 

* Clear any old search results. 

*/ 

clear_search (data) ; 

/* 

* If the signature window exists destroy it to clear out the old search 

* results. 

*/ 

if ( signature_window != NULL && XtlsManaged ( signature_window) ) 

{ 

XtUnmanageChild ( signature_window) ; 

XtDestroyWidget (signature_window) ; 

} 



signature_window = XtVaCreateManagedWidget ( "sbsform" , 
xmFormWidgetClass, data->sw_parent , 

NULL) ; 

XmScr oil edWindowSet Areas (data->sw_parent , 

(Widget) NULL, 

(Widget) NULL, 
signature_window) ; 



/* 

* Get the current minimum rank from their text widgets. 

*/ 

string = XmTextGetString (data->prank_text) ; 
min_prof ile_rank = atof ( string) ; 

XtFree ( string) ; 

string = XmTextGetString (data->srank_text ) ; 
min_signature_rank = atof ( string) ; 

XtFree (string) ; 

/* 

* Clear the progress display and set the title. The display will be 

* updated by the ADA search routines as the search progresses. 
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* PF_FILE_BUFFER and SM_FILE_BUFFER are the file names for the search 

* results. The profile filtering results will be display by a callback 

* from the ADS routines. 

*/ 

clear_display ( "Search Progress") ; 

sb_search ( SBROOT, 
filename, 

&min_prof ile_rank, 

&min_signature_rank, 

PF_FILE_BUFFER, 

SM_FILE_BUFFER) ; 

XtFree ( filename) ; 

selected_component = NULL; 

data->matches = NULL; 
match = NULL; 

/* 

* Assume that an error occurred if we can't open the results buffer. 

*/ 



fp = fopen(SM_FILE_BUFFER, "r"); 
if (fp == NULL) 

{ 

xmstring = XmStringCreateSimple ( "Signature matching ERROR!."); 

(void) XtVaCreateManagedWidget ( "sbstext", 

xmLabelWidgetClass , signature_window, 

XmNlabelString, xmstring, 

XmN top Attachment, XmATTACH_FORM, 

XmNle ft Attachment, XmATTACH_FORM, 

XmNlef tOff set , 5, 

NULL) ; 

XmStringFree (xmstring) ; 

XtManageChild ( signature_window) ; 

} 

/* 

* We remove the new lines from labels so that they will not cause problems. 

* The first line has information about the candidates found. 

V 

fgets (IObuffer, MAXBUFSIZE, fp) ; 
remove_nl ( IObuffer) ; 

xmstring = XmStringCreateSimple ( IObuffer ) ; 
candidates = XtVaCreateManagedWidget ( "sbstext " , 
xmLabelWidgetClass , signature_window, 

XmNlabelString, xmstring, 

XmNtopAttachment , XmATTACH_FORM, 

XmNlef t Attachment , XmATTACH_FORM, 

XmNlef tOffset, 5, 

NULL) ; 

XmStringFree (xmstring) ; 
previous_widget = candidates; 

XtManageChild (candidates ) ; 

/* 

* Loop through the components that were found display informaiton about 

* each one and set up a toggle button for the use to select one. 

V 

while ( fgets (IObuffer, MAXBUFSIZE, fp) ) 

{ 

/* 

* Build the data structure that will have the toggle buttons and file 

* names. 

*/ 



if (data->matches « NULL) 
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{ 

data->matches = (MATCH_LIST *) XtMalloc ( (Cardinal ) sizeof (MATCH_LIST) ) 
match = data->matches ; 

) 

else 

{ 

match->next = (MATCH_LIST *) XtMalloc ( (Cardinal } sizeof (MATCH_LIST) } ; 
match = match->next; 

} 

match->next = NULL; 

/* 

* Add the file name of the component 
*/ 

length = remove_nl ( IObuf fer } ; 

match->f ilename = (char *) XtMalloc ( (Cardinal ) (length + 1)); 
strcpy (match->filename / IObuf fer) ; 

/* 

* Add the toggle button 
*/ 

xmstring = XmStringCreateSimple ( IObuf fer ) ; 
match->tbutton = XtVaCreateManagedWidget ( "sbslabel" , 
xmToggleButtonWidgetClass , signature_window, 

XmNlabelString, xmstring, 

XmNtopAttachment, XmATT ACH_WI DGET , 

XmNtopWidget , previous_widget , 

XmNtopOf f set, candidates_of fset, 

XmNle ft Attachment , XmATTACH_FORM, 

XmNleftOf f set, 5, 

NULL) ; 

previous_widget = match->tbutton; 

XmStringFree (xmstring) ; 
candidates_of f set = 20; 

XtAddCallback (match->tbutton, 

XmNarmCallback, 

(XtCallbackProc) togglebuttonCB, 

(XtPointer) match); 

XtManageChild (match->tbutton) ; 

/* 

* Show the user the component information 
*/ 

component_id = f getlabel ( signature_window, previous_widget , fp); 
previous_widget = component_id; 

profile_rank = f getlabel ( signature_window, previous_widget, fp) ; 
previous_widget = prof ile_rank; 

nmatchs = 1; 

/* 

* The ADA routines put in end of sections, %%End_Signature%% and 

* %%End_Component%% , that are used to control the parsing of the 

* results. If we find an end of component then their are not signature 

* matches for this candidate. 

*/ 

fgets ( IObuf fer , MAXBUFSIZE, fp) ; 

if ( IObuf fer [0] == '%' && IObuffer[2] == * E ' && IObuffer[6] == 'C') 
continue; 

/* 

* Loop through the solutions for this component. 

*/ 



do 

{ 

/* 

96 



* Create a lable for this solution 
*/ 

sprintf ( PTbuf f er , "Solution Id", nmatchs++) ; 
xmstring = XmStringCreateSimple ( PTbuf fer ) ; 
solution - XtVaCreateManagedWidget ( "sbstext", 
xmLabelWidgetClass, signature_window, 

XmNlabelStnng, xmstring, 

XmN top Attachment, XmATTACHJtflDGET, 

XmNtopWidget, previous_widget, 

XmNtopOf fset, 5, 

XmNlef tAttachment, XmATTACH_FORM, 

XmNlef toff set , 45, 

NULL) ; 

XtManageChild ( solution) ; 

XmStringFree (xmstring) ; 
previous_widget = solution; 

/* 

* Save the text of the solutions. 

*/ 

position = strlen ( IObuf fer ) ; 
length = 1; 

soltext = (char *) XtMalloc ( (Cardinal ) (position + 1)); 

strcpy (soltext, IObuffer) ; 

while (fgets (IObuffer, MAXBUFSIZE, fp) ) 

{ 

/* 

* Stop when we find the end of this sections %End_Signature%% 

V 

if ( IObuffer [0] == && IObuffer [2] == ' E ' && IObuffer[6] « 'S 

break; 

cptr = soltext; 

position += strlen ( IObuf fer) ; 

soltext - (char *) XtMalloc ( (Cardinal ) (position + 1)); 
strcpy ( soltext, cptr); 
strcat (soltext, IObuffer); 

XtFree (cptr) ; 

length++; 

} 

/* 

* Create a scrolled text widget for the solution it may be quit 

* long. 

*/ 



n = 0; 

SETARG (args [n] , 
SETARG (args [n] , 
SETARG (args [n] , 
SETARG (args [n] , 
SETARG ( args [n] , 
SETARG (args [n] , 
SETARG (args [n] , 
SETARG (args [n] , 
SETARG ( args [n] , 
SETARG ( args [n] , 
SETARG ( args [n] , 
SETARG ( args [n] , 
SETARG ( args [n] , 
SETARG ( args [n] , 
SETARG (args [n] , 



XmNedi tMode, XmMULTI_LINE_EDIT, n) ; 
XmNeditable, False, n) ; 

XmNwidth, INFO_WINDOW_WIDTH - 25, n) ; 
XmNheight, INFO_WINDOW_HEIGHT / 2, n); 
XmNt raver salon, False, n) ; 
XmNcursorPositionVisible, False, n) ; 
XmNsc rolling Policy, XmAUTOMATIC, n) ; 
XmNscrollBarDisplayPolicy, XmSTATIC, n) ; 
XmNscrolledWindowMarginWidth, 5, n) ; 
XmNscrolledWindowMarginHeight, 5, n) ; 
XmNtopAttachment, XmATTACH_WI DGET , n) ; 
XmNtopWidget, previous_widget , n) ; 
XmNtopOf fset, 5, n) ; 

XmNlef tAttachment , XmATTACH_FORM, n) ; 
XmNlef tOf fset, 45, n) ; 



signature_text = XmCreateScrolledText ( signature_window, "sbstext" 
args , n) ; 



previous_widget = signature_text ; 

XmTextSetString ( signature_text , soltext) ; 
XtFree (soltext) ; 
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XtManageChild ( signature_text ) ; 
fgets (IObuffer, MAXBUFSIZE, fp) ; 

} 

while (IObuffer [6] == 'S'); 

) 

fclose ( fp) ; 

remove (SM_FILE_BUFFER) ; 
XtManageChild ( signature_window) ; 



R. UTILS. H 



/+ 

+ $ Id: Utils. h,v 1.3 1998/01/18 16:35:46 greg Exp $ 
+ 

+ Utils. h -- Software Base Search Interface 
* 

* Header file for the interface utilities. 

* 

* Naval Postgraduate School 

* January 13, 1998 

* Written by Gregory L. Meckstroth 



char * 

getdirname (char *path) ; 
char * 

getf ilename (char *path) ; 
char * 

cats trings ( char *stl, char *st2); 
void 

Set_Res_String (Widget widget. String name, char *text); 
char * 

gettext (Widget string) ; 
void 

savetext (Widget parent, char *filename, char *text); 
long 

LoadFile (char *filename, char **ptraddr); 

Boolean 

CopyFile (char *filein, char *fileout); 
void 

Reformat (const char *fname, const int nskipcommas ) ; 



S. UTILS.C 



/* 

* $ Id : Utils. C,v 1.5 1998/01/25 22:49:09 greg Exp $ 

★ 

* Utils. C — Software Base Search Interface 

★ 

* Source code for the common utilities used in the software base search 

* interface. 

* Entry points: getdirname, getfilename, catstrings, Set_Res_String, gettext, 

* savetext, LoadFile, CopyFile, Reformat, 
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* Naval Postgraduate School 

* January 13, 1998 

* Written by Gregory L. Meckstroth 
*/ 



#include 

#include 

#include 

#include 

#include 

tinclude 

#include 



<stdio . h> 
<stdlib.h> 
<string . h> 
<iostream. h> 
<sys/stat . h> 
<Xm/Xm. h> 
<Xm/Text . h> 



#include "PromptDialog . h" 



/* 

* Returns a character pointer to a copy of the directory part of the path to a 

* file. The application is responsible for freeing the storage associated with 

* the string by calling XtFree. 

V 



char * 

getdirname {char *path) 

{ 

char *cptr = strrchr (path, 
char *rv; 

Cardinal length; 

/* 

* If the path did not have a separator its local so return a pointer to 

* the local directory. Other wise make a copy of the path up to and 

* including the separator. 

*/ 



if (cptr == NULL) 

{ 

rv = XtMalloc { (Cardinal ) 3); 
strcpy(rv, 

} 

else 

( 

length = cptr - path + 1; 
rv = XtMalloc (length + 1); 
strncpy(rv, path, length); 
*{rv + length) - ' \0 ' ; 

} 



return rv; 

} 

/* 

* Returns a character pointer to a copy of the file name part of the path to a 

* file. The application is responsible for freeing the storage associated with 

* the string by calling XtFree. 

*/ 

char * 

get filename (char *path) 

{ 

char *cptr = strrchr (path, '/'); 
char *rv; 
int length; 

/* 

* If the path did not have a separator then its the file name. Other wise 

* step past it. 

*/ 



if (cptr == NULL) 

( 

cptr = path; 

) 



99 



else 



cptr++; 



/* 

* Make a copy of the file name and return it pointer. 
*/ 

length = strlen (cptr ) ; 
rv = XtMalloc ( length + 1) ; 
strcpy(rv, cptr); 
return rv; 



/* 

* Returns a character pointer to a copy of the concatenation of the stl and 

* st2. The application is responsible for freeing the storage associated with 

* the string by calling XtFree. 

V 

char * 

catstrings (char *stl, char *st2) 

{ 

unsigned int length = strlen(stl) + strlen(st2); 
char *rv = XtMalloc ( length + 1); 
char *cptr = rv; 

while (*stl ! = ' \0 ' ) 

*cptr++ = *stl++; 

while ( *st2 ! = ' \0 ' ) 

*cptr++ = *st2++; 

*cptr = ' \0 ' ; 

return rv; 

} 

/* 

+ Set a resource string of a widget 
*/ 



XmString tmp = XmStringCreateLtoR ( text , XmSTRING_DEFAULT_CHARSET) ; 
Arg args [ 1 ] = 

{ 

{name, (XtArgVal) 0} 

} ; 

args [0] . value = (XtArgVal) tmp; 

XtSetValues (widget , args, 1); 

XmStringFree (tmp) ; 



/* 

* Returns a character pointer to the string value of the text widget or NULL 

* if its empty. The application is responsible for freeing the storage 

* associated with the string by calling XtFree. 

*/ 

char * 

gettext (Widget text) 

{ 

if (text == NULL) 
return NULL; 

char *string = XmTextGetString ( text ) ; 



void 

Set_Res_String (Widget widget 



// Widget containing resource. 
// Motif name of widget. 

// Text to set resource to. 



String name, 
char *text) 
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/* 

* If the string is "empty" then set the string pointer to NULL 
*/ 

if ( ^string == ' \0 ' ) 

{ 

XtFree ( string) ; 
string = NULL; 

} 

return string; 

} 

/* 

* Save the text file to a file. 

*/ 

void 

savetext (Widget parent, char ^filename, char *text) 

( 

FILE * fp; 

size_t length; 
size_t written; 

fp = f open ( filename, "w" ); 

/* 

* If the open failed prompt the user so they will know 

V 



if (fp == NULL) 

{ 

char IObuf fer [256] ; 

sprintf ( IObuf fer, "Error opening file %s", filename); 

ModalWarningDialog (parent , "Error", IObuf fer) ; 
return; 

) 

/* 

* Write the text to the file 
*/ 

length = s trlen ( text ) ; 

written = fwrite(text, 1, length, fp) ; 
fclose ( fp) ; 

/* 

* If their was an error writing the file prompt the user so they will know 
*/ 



if (written != length) 

{ 

char IObuffer[256]; 

sprint f ( IObuf fer, "Error writing file %s", filename); 
ModalWarningDialog (parent, "Error", IObuf fer); 



} 

/* 

* Function to load a text file into memory. Returns the number of bytes 

* written. The application is responsible for freeing the storage associated 

* with the string by calling XtFree. 

*/ 

long 

LoadFile (char ^filename, char **string) 

{ 

FILE * f p; 

struct stat file__info; 
char *buffer; 
long bytes_read; 
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/♦ 

* Open the file and return if their is an error. 

*/ 

fp = fopen ( filename, "r") ; 

if (fp == NULL) 

{ 

♦string = NULL; 
return -1; 

} 

/* 

* Get file size. Return if their is an error. 

*/ 

if ( stat ( filename, &file_info) != 0) 

{ 

♦string = NULL; 
fclose { fp) ; 
return -1; 

} 

/* 

* Get memory to hold the files text string. Return if their is an error 

V 

♦string = (char * ) XtMalloc ( file_inf'o. st_size + 1); 
buffer = ^string; 

if (buffer -- (char *)NULL) 

{ 

fclose ( fp) ; 
return -1; 

} 

/* 

* Read in file. Return if their is an error writing the text. 

V 

bytes_read = f read (buff er , 1, f ile_info . st_size , fp) ; 
fclose ( fp) ; 

if (bytes_read < f ile_inf o . st_size) 

( 

XtFree (buffer) ; 

♦string = NULL; 
return -1; 

} 

buffer [ file_info. st_size] = '\0'; // Terminate string, 

return bytes_read; 



/* 

* Copy filein to fileout. Returns true if the copy was successful and fails 

♦ other wise 
*/ 

Boolean 

CopyFile (char *filein, char *fileout) 

{ 

FILE * fp; 

struct stat file_info; 
char *buffer; 
long bytes_read; 

/* 

* Get input file size. Return if we can't stat file. 

♦/ 



if ( stat ( filein, &file_info) != 0) 
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{ 

return False; 

) 

/* 

* Open the input file. Return if we can't open the file for reading. 

V 

fp = f open ( filein, "r"); 

if (fp == NULL) 
return False; 

/* 

* Allocate memory to hold file contents. Return if their was an error 
*/ 

buffer = (char * ) XtMalloc ( file_inf o . st_si ze + 1); 

if (buffer == (char *)NULL) 

{ 

fclose ( f p) ; 
return False; 

} 

/* 

* Read in the input files contents. Return if their was an error reading 

* the file. 

*/ 

bytes_read = f read (buff er, 1, f ile_inf o. st_size, fp) ; 
fclose ( fp) ; 

if (bytes_read < f ile_inf o . s t_size ) 

{ 

XtFree (buffer) ; 
return False; 

} 

/* 

* Open the output file. Return if we can't open the file for writing. 

V 



fp = fopen ( f ileout , "w"}; 

if (fp == NULL) 
return False; 

/* 

* Write the contents of the input file to the output file. Return if their 

* was an error writing the file. 

*/ 

bytes_read = fwri te (buf f er , 1, file_info. st_size, fp) ; 
fclose ( fp) ; 

if (bytes_read < f ile_inf o . st_size ) 

{ 

XtFree (buffer) ; 
return False; 

} 

return True; 

} 

/* 

* Reformat the ADA search/maintenance output so we can display it in the 

* progress dialog. The ADA has very long lines that needed to be folded. The 

* profile filtering is slightly different from the signature matching. So we 

* use the skip commas to distinguish between the types. 

*/ 

void 

Ref ormat (const char *fname / const int nskipcommas) 
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FILE * f pin; 

FILE + fpout ; 
char *ftemp; 
int bracer- 
char tab [256]; 
char *ptab; 
char c; 

int commas = 0; 

/* 

* Return if the calling program gave us a null file name. 
*/ 



if (fname == NULL) 
return; 

/* 

* We create a temporary file by adding . tmp to the input file name. Then 

* rename the input file so we can reformat into the correct file. 

*/ 

ftemp = (char *) XtMalloc ( (Cardinal) ( strlen ( fname ) + 5)); 
strcpy ( f temp, fname); 
s treat ( ftemp, ".tmp"); 

if ( rename ( fname, ftemp) == -1) 
return; 

brace = False; 
ptab = tab; 

fpin = fopen( ftemp, "r"); 
fpout = fopen( fname, "w" ); 

/* 

* Try to fold the line after a comma so that the braces line up 
*/ 



while ( (c = fgetc(fpin)) != EOF) 

{ 

if ( Ibrace) 

{ 

/* 

* If we have not found a brace look for one. 

*/ 

switch (c) 

{ 

/* 

* brace found start looking for end of line. 

*/ 

case ' { 1 : 
case 1 [ ' : 
brace = True; 
break; 

/* 

* If we find a end of line before brace restart tab string 
*/ 

case ' \n ' : 
ptab = tab; 

*ptab = ' \0 ' ; 
break; 

/* 

* Other wise add a space for each character. 

*/ 

default : 

*ptab++ = ' ’; 

*ptab = '\0'; 
break; 
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} 

fputc(c, fpout); 

) 

else 

{ 

r 

* brace found now look for the end of the line. 

V 

fputc(c, fpout); 
switch (c) 

{ 

/* 

* If we find a comma put rest of text on next line after 

* tabbing over to line up text with brace. We may need to skip 

* so of the commas first 
*/ 

case ' , 1 : 
comma s++; 

if (commas > nskipcommas) 

{ 

commas = 0; 

fputc ( ' \n ' , fpout) ; 

fputs(tab, fpout); 

} 

break; 

/* 

* Found a new lien so start looking for the first brace on the 

* next line. Also reset the amount to tab over. 

*/ 

case ' \n ' : 
brace = False; 
ptab.= tab; 

*ptab = ' \0 ' ; 
commas = 0; 
break; 
default : 
break; 

} 

} 

} 

/* 

* We are done reformatting so cleanup 
*/ 

f close ( fpin) ; 
fclose ( fpout ) ; 
remove ( ftemp) ; 

XtFree ( ftemp) ; 
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APPENDIX B GNAT GENERATED C SOURCE CODE 



Source code generated by the GNAT ADA compiler to initialize the environment. 



A. B_AD A_S Y STEM.H 

/* 

* $Id: b_ada_system. h, v 1.1. 1.1 1998/01/14 03:40:05 greg Exp $ 

* 

* b_ada_system. h — Software Base Search Interface 

★ 

* Header file for the ADA systems initialization routine. 

* Naval Postgraduate School 

* January 13, 1998 

* 

* Written by Gregory L. Meckstroth 
*/ 

extern "C" b_ada_init ( int argc, char **argv, char **envp); 
extern "C" b_ada_f inal ( void) ; 



B. B_AD A_S Y STEM.C 

/* 

* $Id: b_ada_system. c, v 1.2 1998/01/18 17:40:49 greg Exp $ 

* 

* b_ada_system. c — Software Base Search Interface 

★ 

* Source code for the ADA systems initialization. This was generated by the 

* GNAT Compiler. 

* 

* Naval Postgraduate School 

* January 13, 1998 

* Written by Gregory L. Meckstroth 

* 

*/ 



extern int gnat_argc; 
extern char **gnat_argv; 
extern char **gnat_envp; 
extern int gnat_exit_status; 
void adafinal(); 
void 

adainit ( ) 

{ 

gnat set globals ( 

- 1 , /* 

* Main_Priority 
*/ 

- 1 , /* 

* Time_Slice_Value 
*/ 

1 /* 

* Locking_Policy 

* / 

' ' , /* 

* Queuing_Policy 
*/ 

' /* 

* Tasking_Dispatching_Policy 
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/ 

/ 

/ 

/ 

/ 



*/ 

adafinal) ; 
ada elabs (); 

/ 

ada characters elabs (); 

/ 

ada characters handling elabs () 

/ 

ada characters latin_l elabs () ; 

/ 



* gnat elabs (); 

*/ 

k 

* gnat case_util elabs (); 

V 

* gnat case_util elabb (); 

*/ 

k 

* gnat htable elabs (); 

*/ 

* gnat htable elabb (); 

"/ 

k 

* gnat io elabs (); 

*/ 

k 

* gnat io elabb (); 

V 

k 

* interfaces elabs (); 

*/ 



/* 



/* 



/* 



/* 



/* 



/* 



/* 



/* 



system elabs { ) j 



* system exn_gen elabs (); 

*/ 

* system exn_gen elabb (); 

k 

* system exn_lli elabs (); 

*/ 

k 

+ system img_bool elabs () ; 

*/ 

k 

* system img_int elabs (); 

"/ 

k 

* system img_lli elabs (); 

V 



/* 



/* 



/ + 



/* 



/ + 



* system img_real elabs ()/ 



/ 



/ 



/ 



system parameters elabs (); 

/ 

system parameters elabb (); 

/ 

interfaces c_streams elabs ( ) ; 

interfaces c_streams elabb (); 

/ 

system powten_table elabs () ; 

system standard_library elabs () ; 

/ 



/* 



* system exception_table elabs {); 

V 

system exception_table elabb ( ) ; 

ada io_exceptions elabs ( ) / 

ada strings elabs ( ) ; 

* io_exceptions elabs (); 

k / 



/* 



/* 



system storage_elements elabs {) ; 



*/ 



f* 



* system storage_elements elabb (); 

*/ 

k- 

* system secondary_stack elabs (); 

*/ 

* system img_lli elabb (); 

*/ 

k 

* system img_int elabb (); 

W 

k 

* system img_bool _elabb (); 

*/ 

ada tags elabs ( ) ; 

ada tags elabb { ) ; 

ada streams elabs ( ) ; 

ada exceptions elabs ( ) ; 



/* 



/* 



/* 



/* 



/* 



* system string_ops elabs (); 

* system string_ops elabb (); 



/* 



W 



/* 



system task_specific_data elabs () ; 



*/ 



/* 



* system tas king_sof t_links elabs (); 



k / 



/* 



system tasking_sof t_links elabb ( ) ; 



* system task__speci f ic_data elabb (); 






/* 



system secondary_stack elabb {) ; 



* system standard_library elabb (); 



/* 



/* 



* system exn_llf elabs {); 

*/ 

* system unsigned_types elabs (); 

*/ 

ada strings maps elabs ( ) ; 

ada strings maps constants elabs { ) ; 

ada characters handling elabb { ) ; 

* system bit_ops elabs {); 

*/ 

* system bit_ops elabb (); 



/* 



/* 






/* 



ada strings maps elabb (); 



V 



/* 



* system fat_llf elabs (); 

*/ 

k 

* system img_biu elabs (); 



/* 
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/* 



* system img_biu elabb (); 

V 



/* 



system img_llb elabs ( ) ; 



V 



system img_llb elabb (); 



W 



/* 



* system img_llu elabs (); 

V 

k 

* system img_llu _elabb (); 



/* 



/* 



* system img_llw elabs {); 

V 

ft 

* system img_llw elabb (); 



/* 



/* 



* system img_uns elabs ( ) ; 

k / 

k 

* system img_uns elabb (); 

*/ 

* system img_real elabb (); 

W 

k 

* system img_wiu elabs (); 

'/ 

* system img_wiu elabb (); 

V 

* system stream_attributes elabs (); 

V 

k 

* system stream_attributes elabb (); 

' f 



/* 



/* 



/* 



/* 



/* 



/* 



/* 



/* 



ada exceptions elabb {); 

system finalization_root elabs ( ) ; 






* system finalization_root elabb (); 



V 



system finalization_implementation_ 



/* 



* system final ization_implementation_ 

k / 

ada finalization elabs {); 



/* 



* ada finalization elabb (); 

* / 

ada finalization list controller 



/* 



* ada finalization list_cont roller 

k t 

system f ile_control_block. elabs ( ) 



/* 



* system file_io elabs {}; 

*/ 

system file_io elabb {) ; 

ada text_io elabs ( ) ; 

ada text_io elabb ( ) ; 

* ada f loat_text_io elabs (); 

V 



/* 



ada integer_text_io elabs (); 



elabs ( ) 

__elabb () 

_elabs { ) ; 
elabb (); 



no 



*/ 

/* 

* ada long_long_integer_text_io_ _elabs (); 

V 

/* 

* ada text_io enumeration_aux elabs {)? 

* / 

/* 

* ada text_io float_aux elabs (); 

*/ 

/* 

* ada float_text_io elabb (); 

V 

/* 

* ada text_io generic_aux elabs (); 

V 

/* 

* ada text_io generic_aux elabb ( ) ; 

*/ 

/* 

* ada text_io enumeration_aux_ elabb (); 

V 

/* 

* ada text_io integer_aux elabs {); 

*/ 

/* 

* ada long_long_integer_text_io elabb (); 

*/ 

/* 

* ada integer_text_io elabb (); 

V 

/* 

* system val_bool elabs (); 

*/ 

/* 

* system val_enum _elabs (); 

V 

/* 

* system val_int elabs (); 

*/ 

/* 

* system val_lli elabs (); 

V 

/* 

* ada text_io integer_aux elabb (); 

V 

/* 

* system val_llu elabs (); 

V 

/* 

* system val_real elabs (); 

*/ 

/* 

* ada text_io float_aux elabb (); 

*/ 

/* 

* system val_uns elabs (); 

*/ 

/* 

* system val_util elabs (); 

*/ 

/* 

* system val_util elabb {); 

*/ 

/* 

* system val_uns elabb (); 

V 

/* 

* system val_real elabb (); 

*/ 

/* 

* system val_llu elabb (); 

*/ 

/* 



ill 



* system val_lli 

V 



/* 



s y s t em va l_i n t 



k / 



_elabb ( ) ; 
_elabb ( ) ; 



/* 



* system val_enum elabb (); 

V 

* system val_bool elabb (); 

V 



/* 



text io elabs () ( 






max elabb (); 






a_strings_ 

a_strings_ 

/* 

* bool_io_ 

*/ 



bool io 



k / 



_elabs ( ) ; 
_elabb ( ) ; 

_elabs ( ) ; 
elabb ( ) ; 



/* 



* delimiter_pkg elabs (); 

k / 

delimiter_pkg elabb ( ) ; 

k generic_buf f ered_allocation_ 

k / 



/* 



* generic_set_pkg elabs (); 

*/ 



/* 



* int_io_ 

V 

* int io 



_elabs ( ) ; 
elabb ( ) ; 



/* 



* lookahead_pkg elabs (); 

*/ 

lookahead_pkg elabb ( ) ; 

/* 

millisec_pkg elabs ( ) ; 

millisec_pkg elabb ( ) ; 



k / 



/* 



* ordered_set_pkg elabs () 






/* 



parser_goto elabs ( ) ; 



* parser_lex_df a elabs (); 

*/ 

parser_lex_dfa elabb ( ) ; 

parser_lex_io elabs ( ) ; 

parser__lex_io elabb ( ) ; 

parser_shif t_reduce elabs ( ) 



k / 



sb_utils elabs (); 

sb_utils elabb ( ) ; 

shared_f ree_list elabs ( ) ; 

shared_f ree_list elabb ( ) ; 

generic_buf f ered_allocation_ 

ordered_set_pkg elabb ( ) ; 

square_root_pkg elabs ( ) ; 

square_root_pkg elabb ( ) ; 

generic_set_pkg elabb () ; 



elabs ( ) ; 



elabb ( ) ; 
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* generic_map_pkg elabs (); 

*/ 

generic_map_pkg elabbO ; 

natural_set_pkg elabs ( ) ; 

natural_set_pkg elabb() ; 

* generic_sequence_pkg elabs (); 

"/ 

generic_sequence_pkg elabb() ; 



/* 



V 



/* 



ordered_map_pkg elabs ( ) ; 

ordered_map_pkg elabb ( ) ; 

prof ile_types elabs ( ) ; 



* profile_calc elabs (); 

*/ 

profile_calc elabb ( ) ; 



/* 



* text_pkg elabs (), 



W 



/* 



text_pkg elabb ( ) ; 



* ada_id_pkg elabs (); 



/* 



* psdl_id_pkg elabs (); 

V 



/* 



psdl_id_seq_pkg elabs () ; 



* op_id_pkg elabs ( ) ; 



V 



/* 



op_id_pkg elabb ( ) ; 



* excep_id_pkg elabs (); 

*/ 

excep_id_pkg elabb ( ) ; 

op_id_set_inst_pkg elabs ( ) ; 

op_id_set_inst_pkg elabb ( ) ; 

/* 

* output_id_pkg elabs (); 

*/ 

output_id_pkg elabb ( ) ; 

timing_map_inst_pkg elabs ( ) ; 



/* 



* timing_map_inst_pkg elabb (); 



k / 



type_name_pkg elabs ( ) ; 

type_name_pkg elabb ( ) ; 



* psdl_id_set_subtype_pkg elabs (); 

*/ 

expression_pkg elabs () ; 

expression_pkg elabb ( ) ; 

excep_trigger_map_inst_pkg elabs ( ) ; 

/* 

* excep_trigger_map_inst_pkg elabb (); 

* / 

exec_guard_map_inst_pkg elabs ( ) ; 

/* 

* exec_guard_map_ins t_pkg elabb (); 

* / 

init_map_inst_pkg elabs ( ) ; 

* init_map_inst_pkg elabb ()/ 



/* 



't 



/* 



out_g u ard_map_inst_pkg elabs () ; 



* out_guard_map_inst_pkg elabb (); 

W 

k 

* psdl_type_set_subtype_pkg elabs (); 

*/ 



/* 
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timer_op_pkg elabs ( ) ; 

timer_op_pkg elabb ( ) ; 

/* 

* tim_op_io elabs (); 

*/ 

/* 

+ tim_op_io elabb (); 

*/ 

timer_op_set_inst_pkg elabs ( ) ; 

timer_op_set_inst_pkg elabb () ; 

timer_op_map_inst_pkg elabs ( ) ; 

/* 

* timer_op_map_inst_pkg elabb (); 

*/ 

trigger_pkg elabs ( ) ; 

trigger_pkg elabb () ; 

trigger_map_inst_pkg elabs ( ) ; 

/* 

* trigger_map_inst_pkg elabb (); 

*/ 

/* 

* psdl_concrete_type_pkg elabs (); 

V 

psdl_concrete_type_pkg elabb ( ) ; 

parser_tokens elabs ( ) ; 

/* 

* parser_lex elabs (); 

*/ 

parser_lex elabb ( ) ; 

psdl_graph_pkg elabs ( ) ; 

psdl_graph_pkg elabb ( ) ; 

psdl_component_pkg elabs ( ) ; 

psdl_component_pkg elabb ( ) ; 

psdl_prof ile elabs ( ) ; 

component_id_types elabs ( ) ; 

component_id_types elabb ( ) ; 

haase_diagram elabs ( ) ; 

psdl_program_pkg elabs () ; 

psdl_program_pkg elabb () ; 

parser elabs ( ) ; 

parser elabb () ; 

/* 

* psdl_io elabs ( ) ; 

* / 

psdl_io elabb ( ) ; 

sig_match_types elabs ( ) ; 

candidate_types elabs ( ) ; 

candidate_types elabb ( ) ; 

sig_match_types elabb ( ) ; 

/* 

* prof ile_f ilter_pkg elabs (); 

*/ 

profile_filter_pkg elabb () ; 

/* 

* sig_match elabs (); 

*/ 

sig_match elabb ( ) ; 

sof tware_base elabs ( ) ; 

software_base elabb ( ) ; 

haase_diagram elabb () ; 

psdl_profile elabb () ; 

profile_types elabb () ; 

/* 

* sb_init elabb (); 

*/ 

} 

void 

adafinal ( ) 

( 

system f inalization_implementation finalize_global_list ( ) 

) 

int 

b_ada_init (argo, argv, envp) 
int argc; 
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char **argv; 
char **envp; 

gnat_argc = argc; 
gnat_argv = argv; 
gnat_envp = envp; 

gnat_initialize ( ) ; 

adainit ( ) ; 

/* 

* _ada_sb_init (); 

V 



} 



void 

b_ada_f inal ( ) 
{ 



adaf inal ( ) ; 

gnat_finalize ( ) ; 

exit (gnat_exit_status) ; 



unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 



sb_initB = 0x0164A2F2; 

system standard_libraryB = 0x52269lA4; 

system standard_libraryS = 0x79B018CE; 

a_stringsB = 0x4Al0E5BB; 
a_stringsS = 0x224334F3; 

system secondary_s tackB = 0 x5EAFC39A; 

system secondary_s tacks = 0x36DDFD40; 

systems = 0x08FBDA7E; 

system task_specific_dataB = 0 x3FC34A96; 

system task_specific_dataS = 0x47178527; 

system tasking_sof t_linksB = 0x06DD5994; 

system tasking__soft_linksS = 0x6316D326; 

system storage_elementsB = 0x6FD7DF62; 

system storage_elementsS = 0x5B2FF7Bl; 

system string_opsB = 0x6E258F4E; 

system string_opsS = 0x260AlD23; 

system exception_tableB = 0x2A7F6B90; 

system exception_tableS = 0xl9C2AE08; 

gnats = 0xl56A40CF; 

gnat htableB = 0xl38A54Cl; 

gnat htableS = 0x463AD2F7; 

adaS = 0x2359F9ED; 

ada f loat_text_ioB = 0x5AF53864; 

ada f loat_text_ioS = 0x68CB390E; 

ada text_ioB = 0x67C38C44; 

ada text_ioS = 0x56ACDF93; 

ada streamsS = 0x7C25DE96; 

ada tagsB = 0x07DC67C0; 

ada tagsS = 0x0A72F2E2; 

interfacesS - 0x0357E00A; 

interfaces c_streamsB = 0x0915C508; 

interfaces c_streamsS = 0xl63276FB; 

system parametersB = 0xlDD5A020; 

system parametersS = 0x000E4206; 

system file_ioB = 0x5640C74A; 

system file_ioS = 0x350F4CF0; 

ada f inalizationB = 0x4F0184F2; 

ada finalizations = 0x0A0669D8; 

system f inalization_rootB = 0x26610831; 

system f inalization_rootS = 0xlE9694A4; 

system s tream_attributesB = 0x3E43967C; 

system s tream_attributesS = 0x55C8lA60; 

ada io_exceptionsS = 0x34054F96; 

system unsigned_typesS = 0x362290AA; 

system f inalization_implementationB = 0x24B3392D 

system f inalization_implementationS = 0x3CC4D947 

ada exceptionsB = 0x3016C36D; 

ada exceptionsS = 0x4CED7A40; 

system f ile_control_blockS = 0x7B3BF0FA; 

ada finalization list_controllerB = 0x35E59753; 

ada finalization list controllers = 0x34B32999; 
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unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 



ada text_io float_auxB = 0x09BCEFlE; 

ada text_io float_auxS = 0x7859E16E; 

ada text_io generic_auxB = 0 x2BB82BBF; 

ada text_io generic_auxS = 0xlA2347ED; 

system img_realB = 0x0F48969A; 

system img_realS = 0x7207087A; 

system fat_llfS = 0x34C0D34E; 

system img_lluB = 0x327658F4; 

system img_lluS = 0x365A4C95; 

system img_unsB = 0x04FCDB0C; 

system img_unsS = 0x0E07D0DF; 

system powten_tableS = 0x7 8 9352 5A; 

system val_realB = 0x513ADl4F; 

system val_realS = 0x4F1238F4; 

system exn_llfS = 0x670FFlD2; 

system exn_genB = 0x72152961; 

system exn_genS = 0x325B6B9E; 

system val_utilB = 0x43F8A78C; 

system val_utilS = 0x6B7B6FlB; 

gnat case_utilB = 0x50DFD047; 

gnat case_utilS = 0x240BBC4l; 

candidate_typesB * 0 x1DC17f 63; 
candidate_typesS = 0x78BC99B8; 

ada integer_text_ioB = 0x767F630A; 

ada integer_text_ioS = 0x44416260; 

ada text_io integer_auxB = 0x37DCF454; 

ada text_io integer_auxS = 0x66BE5732; 

system img_biuB = 0x3C3FD5BB; 

system img_biuS = 0x3E53F225; 

system img_intB - 0x79CE2327; 

system img_intS = 0x294Ell4F; 

system img_llbB = 0x56913838; 

system img_llbS = 0x71DF2A7E; 

system img_lliB = 0x746AD087; 

system img_lliS = 0x27F434CC; 

system img_llwB = 0x7909674C; 

system img_llwS = 0xl0809F4A; 

system img_wiuB = 0x25C29895; 

system img_wiuS - 0x5811EC30; 

system val_intB = 0x720C563A; 

system val_intS = 0x45FF83FC; 

system val_unsB = 0x5220CEA2; 

system val__unsS = 0x6CBA7A61; 

system val_lliB = 0x73lF063C; 

system val_lliS = 0 x7A59FFA4; 

system val_lluB = 0x54503248; 

system val_lluS = 0xllAE29BD; 

component_id_typesB = 0xl40EE20B; 
component_id_typesS = 0x2E5EA4CF; 

gnat ioB * 0x45421936; 

gnat ioS = 0x50EB74BA; 

psdl_concrete_type_pkgB = 0x789F49BD; 
psdl_concrete_type_pkgS = 0x07162568; 
ada_id_pkgS = 0xl4E4C3C0; 
text_pkgB = 0xl6l438AD; 
text_pkgS = 0xl4D28134; 
excep_id_pkgB = 0x2FE43381; 
excep_id_pkgS = 0x07CE7053; 
op_id_pkgB = 0x0899C528; 
op_id_pkgS = 0xl7A929DD; 
psdl_id_pkgS = 0x63D62610; 
psdl_id_seq_pkgS = 0x307B3167; 
generic_sequence_pkgB = 0xlAFB7890; 
generic_sequence_pkgS = 0x50D2AB4F; 
generic_buf f ered_allocationB = 0x2F5272CC 
generic_buf fered_allocationS = 0xlBl0D9A2 
shared_f ree_listB = 0x706DBEEC; 
shared_f ree_listS = 0x2F799CB3; 
text__ioS = 0x69339E9B; 
lookahead_pkgB = 0x509D5DBB; 
lookahead_pkgS = 0x3072E4D5; 
delimiter_pkgB = 0x547FCDD5; 
delimi ter_pkgS = 0x7786FEA7; 
io_exceptionsS = 0x00345331; 
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unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 



maxB = 0x3F53lC2E; 
natural_set_pkgB = 0x0lF22FF3; 
natural_set_pkgS = 0x6310C34F; 
generic_set_pkgB = 0x603BE637; 
generic_set_pkgS = 0xlAB68AA0; 
minB = 0x3FB30C3A; 
square_root_pkgB = 0x24DD13BE; 
square_root_pkgS = 0x2Fl9C657; 
excep_trigger_map_inst_pkgB = 0x72C07046; 
excep_trigger_map_inst_pkgS = 0x7E7E636C; 
expression_pkgB - 0x2E67FBAE; 
expression_pkgS = 0x2AE7C6E2; 
psdl_id_set_subtype_pkgS = 0x239A809F; 
type_name_pkgB = 0x6E269266; 
type_name_pkgS = 0x47A44445; 
generic_map_pkgB = 0x48218C0B; 
generic_map_pkgS * 0x0103D8A7; 
exec_guard_map_inst_pkgB = 0x73DEA6F8; 
exec_guard_map_inst _pkgS = 0x25128C28; 
init_map_inst_pkgB = 0x4E225FB9; 
init_map_inst_pkgS = 0x5BBElCA3; 
millisec_pkgB = 0x55AEC8E0; 
millisec_pkgS = 0x5CED9DE7; 
op_id_set_inst_pkgB = 0x3ADC9B96; 
op_id_set_inst_pkgS = 0x46D25749; 
out_guard_map_ins t_pkgB = 0x2705AAD3; 
out_guard_map_ins t_pkgS = 0x492BDDAl; 
output_id_pkgB = 0x4BlFED76; 
output_id_pkgS = 0 x 655E140B; 
psdl_type_set_subtype_pkgS = 0x2D37D42E; 
timer_op_map_inst_pkgB = 0x74DBBD26; 
timer_op_map_inst_pkgS = 0x6DA26DDE; 
timer_op_set_inst_pkgB = 0x3A2EDF5D; 
timer_op_set_inst_pkgS = 0x480D4EA7; 
timer_op_pkgB = 0x3796F502; 
timer_op_pkgS = 0xlEE86C5B; 
timing_map_inst_pkgB = 0x5DF5268C; 
timing_map_inst_pkgS = 0x044lC90F; 
trigger_map_inst_pkgB = 0x4EFF82BD; 
trigger_map_inst_pkgS = 0x54BDC980; 
trigger_pkgB = 0x33CllE91; 
trigger_pkgS = Ox435BOA43; 
psdl_profileB = 0x04c61lED; 
psdl_prof ileS = 0x3862EB47; 
prof ile_calcB = 0x76588AAC; 
prof ile_calcS = 0x678103B4; 
prof ile_typesB = 0x399FBF16; 
prof ile_typesS = 0x25lC5B64; 

ada long_long_integer_text_ioB = 0x6BAB00AC 

ada long_long_integer_text_ioS = 0x599501C6 

sb_utilsB = 0x5BlFB51B; 
sb_utilsS = 0x37 153D56; 
sof tware_baseB = 0x61405066/ 
sof tware_baseS = 0x578D938D; 
haase_diagramB = 0x3EA4D858; 
haase_diagramS = 0x05CFBl89; 
profile_filter_pkgB = 0x70ElD69E; 
prof ile_filter_pkgS = 0xlCE30E50; 
sig_matchB = 0x51E7E79C; 
sig_matchS = 0x0C693582; 
psdl_component_pkgB = 0x4Cll89Bl; 
psdl_component_pkgS = 0x5BB79EB0; 
psdl_graph_pkgB = 0x6121lEEC; 
psdl_graph_pkgS = 0xlBA0590E; 
sig_match_typesB = 0x04815981; 
sig_match_typesS » 0x57B0B379; 
ordered_set_pkgB = 0xlBl08DB7; 
ordered_set_pkgS = 0x3E04978C; 
ordered_map_pkgB = 0x0229C7F7; 
ordered__map_pkgS = 0x5FED83F5; 

system exn_lliS = 0xlC471Al6; 

psdl_ioB = 0xlA68 AB53 ; 
psdl_ioS = 0x01797F9A; 
bool ioB = 0x7E6A024E; 
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unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 
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unsigned 

unsigned 

unsigned 

unsigned 
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unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

unsigned 

/* 



bool_ioS = 0x063E6452; 

ada text_io enumeration_auxB = 0x599F0271; 

ada text_io enumeration_auxS = 0x2F4E9EFB; 

ada charactersS = 0xlB981D87; 

ada characters handlingB = 0x3249DBC5; 

ada characters handlings = 0x2BCCA6F3; 

ada characters latin_lS = 0x16585895; 

ada stringsS = 0x264315D3; 

ada strings mapsB = 0x4lEl5328; 

ada strings mapsS = 0xl2F98AEB; 

system bit_opsB = 0x7DCD4BB2; 

system bit_opsS = 0x27196E60; 

ada strings maps constantsS - 0x78F85AAF; 

system img_boolB - 0x0D7DB36C; 

system img_boolS = 0x3BC0DD6D; 

system val_boolB = 0x78F78279; 

system val_boolS = 0x7EFA6F0A; 

int_ioB = 0x015F6910; 
int_ioS = 0x790B0F0C; 
tim_op_ioB = 0x1 1AE93D7 ; 
tim_op_ioS = 0x793B888D; 

system val_enumB = 0x453EC23F; 

system val_enumS = 0x651DC7B6; 

parserB = 0x615CBl7D; 
parsers = 0x58DBA507; 
parser_gotoS = 0x37FlBAAB; 
parser_lexB = 0x75E4AE3C; 
parser_lexS = 0x4B529F9D; 
parser_lex_df aB = 0x580EFl8A; 
parser_lex_df aS = 0x700AA2B3; 
parser_lex_ioB = 0x6A470754; 
parser_lex_ioS « 0x2C68E4E2; 
parser_tokensS = 0x5D546D56; 
parser_shift_reduceS = 0x77047BE8; 
psdl_program_pkgB = 0x6500F87E; 
psdl_program_pkgS = 0x7F08D07B; 



* BEGIN Object file/option list . /max . o ./min.o . /a_st rings . o ./bool_io.o 

* . /delimiter_pkg . o ./int_io.o . /lookahead_pkg . o . /millisec_pkg . o 

* . /parser_goto . o . /parser_lex_dfa . o . /parser_lex_io . o . /parser_shif t_reduce . o 

* ./sb_utils.o . /shared_f ree_list . o . /generic_buf f ered_allocation . o 

* . /ordered_set_pkg.o . /square_root_pkg . o . /generic_set_pkg . o 

* . /generic_map_pkg . o . /natural_set_pkg . o . /generic_sequence_pkg . o 

* . /ordered_map_pkg . o . /prof ile_calc . o ./text_pkg.o . /ada_id_pkg . o 

* . /psdl_id_pkg . o . /psdl_id_seq_pkg . o . /op_id_pkg . o . /excep_id_pkg . o 

* . /op_id_set_inst_pkg . o . /output_id_pkg . o . /timing_map_inst_pkg . o 

* . /type_name_pkg . o . /psdl_id_set_subtype_pkg . o . /expression_pkg .o 

* . /excep_trigger_map_inst_pkg . o . /exec_guard_map_ins t_pkg . o 

* . /init_map_inst_pkg . o . /out_guard_map_inst_pkg . o 

* . /psdl_type_set_subtype_pkg . o . /timer_op_pkg . o . /tim_op_io . o 

* . /timer_op_set_instj?kg.o . /timer _op_map_inst_p kg . o . /trigger_pkg.o 

* . /trigger_map_inst_pkg . o . /psdl_concrete_typejpkg .o . /parser_tokens . o 

* . /parser_lex . o . /psdl_graph_pkg . o . /psdl_component_pkg . o 

* . /component_id_types . o . /psdl_program_pkg . o . /parser. o ./psdl_io.o 

* . /candidate_types .o . /sig_match_types . o . /profile_filter_pkg. o . /sig_match. o 

* . /sof tware_base . o . /haase_diagram. o . /psdl_prof ile . o . /prof ile_types . o 

* . /sb_init . o -L./ -L/home/greg/PSDL_TYPE-May97 /GNAT/ 

* -L/home/greg/PSDL_TYPE-May97/GENERIC_TYPES/GNAT/ 

* -L/home/greg/PSDL_TYPE-May97 /INSTANTIATIONS /GNAT/ 

* -L/usr/gnat/lib/gcc-lib/i386-linux/2 .7.2. 1/adalib/ 

* -L/usr/lib/gcc-lib/i386-linux/2 . 7 . 2 . 1/adalib/ -Ignat END Object file/option 

* list 



*/ 
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APPENDIX C PSEUDO ADA SOURCE CODE 



ADA interface between the C++ GUI and multilevel filtering routines. 



A. SB INTERFACE.ADS 

-- $Id: sb_interface . ads, v 1.2 1998/01/18 17:05:14 greg Exp $ 
-- sb_interface . ads — Software Base Search Interface. 

-- Package Spec for the CAPS software base ADA interface. 

-- Naval Postgraduate School 

— January 11, 1998 

— Written by Gregory L. Meckstroth 



with sb_utils; 
package sb_interface is 

type AString is access string; 

procedure sb_init ( sbroot : in sb_utils . String_Pointer ; 

hfname: in sb_utils . String_Pointer ) ; 
pragma export (C, sb_init, "sb_init”) ; 

procedure sb_search ( sbroot : in sb_utils . String_Pointer; 

qfname: in sb_utils . String_Pointer ; 
min_prof ile_rank: in out float; 
min_signature_rank: in out float; 
pf_file_buf fer : in sb_utils.String_Pointer; 
sm_f ile_buf f er : in sb_utils . String_Pointer ) ; 

pragma export (C, sb_search, "sb_search" ) ; 

end sb interface; 



B. SB INTERFACED 



-- $Id: sb_interface . g, v 1.2 1998/01/18 17:05:14 greg Exp $ 

— sb_interface . g — Software Base Search Interface 

-- Package Body for the CAPS software base ADA interface. 

— Entry points: IntPut, Get_Char_Line, Get_Char_Word, C_to_Ada_String, 
-- Ada_Strcpy, Display_Message_line, Display_Message, reformat. 

-- Naval Postgraduate School 

— January 11, 1998 

-- Written by Gregory L. Meckstroth 



with text_io; use text_io; 

with ada . f loat_text_io; use ada . float_text_io; 
with ada . integer_text_io; 
with sof tware_base; 
with sb_utils; 

with psdl_concrete_type_pkg; use psdl_concrete_type_pkg; 
with profile_calc; use prof ile_calc; 
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with psdl_profile; use psdl_prof ile ; 

with profile_types; use prof ile_types ; 

with component_id_types ; use component_id__types ; 

with haase_diagram; use haase_diagram; 

with candidate_types; use candidate_types ; 

with sof tware_base; 

with sig_match_types; use sig_match_types; 
with sig_match; use sig_match; 
with a_strings; use a_strings; 

package body sb_interface is 



— Procedure: sb_init 

-- Description: "C" language Interface for software base initialization. 

procedure sb_init ( sbroot : in sb_utils . String_Pointer ; 
hfname: in sb_utils . String_Pointer ) is 
sb_dir_name: AString; 
header_name: AString; 
nst : a_string; 
begin 

sb_utils . Display_Message_line { "Initializing Software Base”); 
header_name := new string' (sb_utils . C_to_Ada_String (hfname) ) ; 
sb_dir_name := new string' (sb_utils .C_to_Ada_String(sbroot) ) ; 
sof tware_base . initialize ( sb_dir_name . all, header_name . all) ; 
sb_utils . Display_Message_line ( "finished. " } ; 

nst := to_a ( "Found" ) ; 

nst := nst & integer ' image ( sof tware_base . numComponents ) ; 
nst := nst & " components in"; 

nst := nst & integer ' image ( sof tware_base . numOccupiedPartitions ) ; 
nst := nst & " partitions."; 
sb_utils . Display_Message_line (nst . s ) ; 

end sb init; 



-- Procedure: sb_search 

-- Description: "C" language Interface for software base search. 

procedure sb_search ( sbroot : in sb_utils . String_Pointer; 

qfname: in sb_utils . String_Pointer ; 
min_profile_rank : in out float; 
min_signature_rank: in out float; 
pf_f ile_buf f er : in sb_utils.String_Pointer; 
sm_file_buf f er : in sb_utils . String_Pointer ) is 
min_pr: float; 
min_sr: float; 

the_candidates : CandidateSet; 

sn, the_branch, another_branch : SigMatchNode; 
q_ops, c_ops : OpWithProf ileSeq; 
batch_file: file_type; 
queries_dir, results_dir: a_string; 

query_filename, sm_filename, p_hist_f ile name, sm_hist_f ilename : a_string 

candidate_f ilename : string ( 1 . . 256) ; 

length: integer; 

temp_candidate : Candidate; 

query_name, pf_file, sm_file: AString; 

sb_dir_name: AString; 

IO_buf f er_f ile : file_type; 
procedure Cf iltering_doneCB; 

pragma Import (C, Cf iltering_doneCB, "profile_f iltering_doneCB Fv"); 

begin 

sb_dir_name := new string ' (sb_utils . C_to_Ada_String (sbroot) ) ; 
query_name := new string '( sb_utils .C_to_Ada_String ( qfname )) ; 
pf_file := new string '( sb_utils . C_to_Ada_String (pf_file_buf fer ) ) ; 
sm_file := new string '( sb_utils . C_to_Ada_String ( sm_file_buf fer )) ; 
min_pr := min_prof ile_rank - 0.0001; 
min_sr := min_signature_rank - 0.0001; 

— Reinitialize the search database from the save initialization data. 
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sb_utils . Display_Message_line ( "Reinitializing Software Base") ; 
sof tware_base . reinitialize ( sb_dir_name . all) ; 
sb_utils . Display_Message_line ( "finished. ") ; 

— First do the profile filtering to reduce the number of components that 
— we have to do signature mating on. 

query_filename := to_a (query_name . all) ; 
sb_utils . Display_Message ( "PROCESSING " ) ; 

sb_utils . Display_Message_line (convert (text ( query_filename ) ) ) ; 
sb_utils . Display_Message ( "Profile Filtering ..."); 

the_candidates : = sof tware_base .profile Filter (convert ( text (query_f ilename ) ) ) ; 
sb_utils . Display_Message_line ( "finished . " ) ; 

-- Buffer the results to disk so that the "C++" interface can display it 
-- to the user. 

create ( IO_buf f er_f ile , out_file, pf_f ile . all) ; 
set_output (IO_buffer_file) ; 

put ("Found ") ; 

ada . integer_text_io . put ( sof tware_base . numComponents , 0 ) ; 
put(" components in "); 

ada . integer_text_io.put ( sof tware_base .numOccupiedParti t ions , 0) ; 
put_line(" partitions."); 

put ("There are "); 

ada . integer_text_io. put ( candidate_set_pkg . size ( the_candidates ) , 0) ; 
put_line(" possible candidates."); 
candidateSetPut ( the_candidates ) ; 
new_line; 

set_output (standard_output) ; 

close ( IO_buffer_f ile) ; 

sb_utils . reformat (pf_file . all, 0) ; 

— This is the "C++" callback that will display the results. 

Cf iltering_doneCB; 

the_candidates :** prof ileS kirn (min_pr, the_candidates ) ; 

— Now do the signature matching on the components that pass profile 
-- filtering. Buffer the results to disk for the "C++" interface. 

create ( IO_buffer_file, out_file, sm_file . all) ; 
set_output ( IO_buf fer_f ile) ; 

if candidate_set_pkg . size (the_candidates) <= 0 then 
put("0 candidates have profile rank >= "); 
ada . float_text_io .put (min_pr, 2, 2, 0); 
set_output (standard_output) ; 
close (IO_buf fer_file) ; 
return; 
end if; 

sb^utils . Display_Message ( "Signature Matching ..."); 

ada . integer_text_io .put (candidate_set_pkg . size ( the_candidates ) , 0) ; 
put(" candidates have profile rank >= "); 
ada. float_text_io .put (min_pr, 2, 2, 0) ; 
new_line; 

foreach((c: Candidate), candidate_set_pkg . scan, (the_candidates) , 

temp_candidate sof tware_base . signatureMatch (convert (text (query_f ilename ) ) , 

c, min_sr) ; 

sof tware_base . getCandidateFilename ( temp_candidate . component_id, 
candidate_f ilename, length) ; 

for i in 1.. length loop 

put (candidate_f ilename (i) ) ; 
end loop; 
new_line ; 

candidatePrint (temp_candidate) ; 

) 

set_output (standard_output) ; 
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close ( IO_buf fer_f ile) ; 
sb_utils . Display_Message_line { "done" ) ; 
sb_utils . reformat (sm_file . all, 0) ; 
end sb_search; 
end sb interface; 



C. SB_UTILS.ADS 

— Sid: sb_utils . ads , v 1.2 1998/01/18 17:05:14 greg Exp $ 
-- sb_utils.ads -- Software Base Search Interface. 

Package Spec for the CAPS software base ADA utilities. 

— Naval Postgraduate School 
-- January 11, 1998 

— Written by Gregory L. Meckstroth 



with system; 

package sb_utils is 

-- Pointer to C char* arguments 

subtype String_Pointer is system. address ; 

-- Put and integer to the output stream (used to save search data) 
procedure IntPut(int: Integer); 

-- Get and integer from the input stream (used to read search data) 
procedure IntGet(int: in out Integer); 

-- Get a line that is terminated with a (used to read search data) 

procedure Get_Char_Line (cline : in out String; last: in out Integer); 

— Get a word from the input steam that has separator characters ' ] ' , ' } ' , 

-- ' , ' , and ' ; ' 

procedure Get_Char_Word (cword : in out String; last: in out Integer); 

-- Convert a "C" string (char*) to an ADA string. 

function C_to_Ada_S tring ( the_cstring : in St ring_Pointer ) return String; 

-- Copy an ADA string to a "C" string 

procedure Ada_Strcpy ( the_cstring : in St ring_Pointer ; the_adast ring : string) 

-- Display a software base message on the GUI with new line 
procedure Display_Message_line (message : string); 

-- Display a software base message on the GUI 
procedure Display_Message (message : string); 

-- Reformat the search output for display on the GUI 

procedure ref ormat { filename : string; nskipcommas: integer); 

end sb utils; 



D. SB_UTILS.G 

-- $ Id : sb_utils . g, v 1.2 1998/01/18 17:05:14 greg Exp $ 

-- sb^utils.g — Software Base Search Interface 

— Package Body for the CAPS software base ADA utilities. 

-- Entry points: IntPut, Get_Char_Line, Get_Char_Word, C__to__Ada__String, 

— Ada_Strcpy, Display_Message_line, Display_Message, reformat. 
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-- Naval Postgraduate School 

— January 11, 1998 

— Written by Gregory L. Meckstroth 



with lookahead_pkg; 

with text_io; 

with ada . integer_text_io; 

package body sb_utils is 

package Int_IO is new Text_IO . Integer_IO (Num => Integer); 

-- Put and integer to the output stream (used to save search data) 

procedure IntPut(int: integer) is 
begin 

Int_IO . Put ( item => int, width => 4); 
end IntPut; 

— Get and integer from the input stream (used to read search data) 

-- The input can have separators that confuse the ADA 10 package so 
-- only read in integers numbers. 

procedure IntGet(int: in out Integer) is 
use lookahead_pkg; 

-- Assume that a number will be less that 256 characters 
io_buffer: String ( 1 .. 256) ; 
last_char: Integer; 
last_int: Integer; 
begin 

last_char := 0; 

while ( lookahead_pkg . Token in '-'..'9') 
loop . 

last_char := last_char + 1; 

lookahead_pkg . Get_Char (io_buf fer (last_char) ) ; 
end loop; 

ada . integer_text_io . Get (io_buf f er ( 1 . . last_char ) , int, last_int ) ; 
end IntGet; 

-- Get a line that is terminated with a (used to read search data) 

procedure Get_Char_Line ( cline : in out String; last: in out Integer) is 
begin 

last := 0; 

while lookahead_pkg .Token /= 
loop 

last := last+1; 

lookahead_pkg .Get_Char (cline (last) ) ; 
end loop; 

lookahead_pkg . Skip_Char ; 
end Get_Char_Line; 

-- Get a word from the input stream that is followed by a separator character 

procedure Get_Char_Word ( cword : in out String; last: in out Integer) is 
function Is_Seperator (c : in Character) return Boolean is 
begin 

if c = or c = ascii . r_bracket or c = or c = '}' then 
return True; 
end if; 
return False; 
end Is_Seperator; 
begin 

last := 0; 

while not Is_Seperator ( lookahead_pkg . Token) 
loop 

last := last + 1; 

lookahead_pkg .Get_Char (cword (last) ) ; 
end loop; 

end Get Char Word; 
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-- Convert a "C" string (char*) to an ADA string. 

function C_to_Ada_String ( the_cstring : in String_Pointer ) return String is 
function Strlen(s : String_Pointer ) return Integer; 
pragma Import (C, Strlen, "strlen") ; 
nlen: integer := Strlen ( the_cstring) ; 
the_string: String ( 1 .. nlen) ; 
for the_string use at the_cstring; 
begin 

return the_string; 
end C_to_Ada_String; 

— Copy an ada string to a "C" string 

procedure Ada_Strcpy ( the_cstring: in String_Pointer ; the_adastring : string) is 
last: integer := the_adastring ' last ; 
cstring: String ( 1 .. last+1 ) ; 
for cstring use at the_cstring; 
begin 

for i in l..last loop 

cstring(i) := the_adas tring (i) ; 
end loop; 

cstring (last+1 ) := character ' fir st ; 

end Ada_Strcpy; 

-- Display a message on the GUI with new line 

procedure Display_Message_line (message : string) is 
If : string ( 1 . . 1 ) ; 
begin 

Display_Message (message) ; 

1 f ( 1 ) := ascii. If; 

Display_Message (If) ; 
end Display_Message_line; 

— Display a message on the GUI 

type AString is access string; 
procedure Display_Message (message : string) is 
procedure Cdisplay (Cmsg : in out AString); 

pragma Import (C, Cdisplay, "display_message FPc"); 

Cmessage: AString; 
begin 

Cmessage := new string ( 1 . .message ' last+1 ) ; 
for i in 1 . .message ' last loop 
Cmessage (i) := message (i); 

end loop; 

Cmessage (message ' last+1) := character ' first ; 

Cdisplay (Cmessage) ; 
end Display_Message; 

procedure ref ormat ( filename : string; nskipcommas: integer) is 

procedure CRe format ( f name : in out AString; skip: in out integer); 

pragma Import (C, CReformat, "Reformat FPCci"); 

Cfname: AString; 

Cskip: integer; 
begin 

Cfname := new string ( 1 .. filename ' last+1 ) ; 

Cskip := nskipcommas; 
for i in 1 .. filename ' last loop 
Cfname (i) := filename (i); 

end loop; 

Cfname ( filename ' last+1 ) := character ' first ; 

CReformat (Cfname , Cskip); 
end reformat; 

end sb utils; 
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APPENDIX D MISCELLANEOUS SOURCE FILES 



Help.txt is the source for the HelpMessages. This was created with Microsoftw 
word then saved as HelpMessages.h the converted to a C++ header file. 



A. HELP.TXT 



Search and retrieval of components from the CAPS software base. This 
dialog box displays the PSDL query, profile filtering and signature 
matching results. The input consists of the query specification, 
minimum profile rank and minimum signature rank. The user can change 
the minimum rank by entering a new value in the appropriate text 
window. The query file name can be changed typing the new name in 
the PSDL Query window. After entering the file name press the enter 
key to update query display. The query must be stored in a file for 
the search routines to work. If the user does not supply a file 
name the default query. psdl will be used. 

After running the search the user can view the results and select 
the appropriate component by pushing the toggle button next to the 
component name. Pushing the OK button will return the selected 
component . 

The Query menu allows the user to manage the PSDL query. 

New: Starts the Syntax Directed Editor to input a new query. 

Open: Open an existing query file. 

Edit: Starts the Syntax Directed Editor to edit the current 

query. 

Save:' Save the current query. 

SaveAs: Save the current query in a user specified file. 

Close: Close the search dialog. 

Exit: Exit the program. 

The Search menu allows the user to run the software base search. 

Start: Start the software base search. 

Buttons . 

OK: Exits the dialog and returns the selected component name. 

Search: Start the software base search. 

Cancel: Exit the dialog. 

Initialize components in the CAPS software base. This dialog box 
displays the PSDL specification and component file list. The input 
consists of the component specification in PSDL and the component 
file list. The spec file name can be changed by typing the new name 
in the PSDL Spec window. After entering the file name press the enter 
key to update the spec display. 

Each component in the Software Base is stored in a separate directory. 
After entering all files for a component the user can initialize the 
component directory structure by pressing the 'Init DIR' button or 
through the Init menu. After the component directory is initialized 
the use can enter another component. This can be repeated until all 
components have been entered. Then the Software Base must be 
initialized by pressing the ’Init SB' button or through the Init menu. 

All component files are copied to the component directory no user 
files will be deleted. 

The Spec menu allows the user to manage the PSDL query. 

New: Starts the Syntax Directed Editor to input a new query. 

Open: Open an existing query file. 
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Edit: Starts the Syntax Directed Editor to edit the current query. 
Save: Save the current query. 

SaveAs: Save the current query in a user specified file. 

Close: Close the search dialog. 

Exit: Exit the program. 

The component menu allows the user to manage the component file list. 
Add Component files: 

Clear Component file list: 

Clear all: 

Buttons . 

Dismiss: Close the init dialog. 

Init DIR: Initialize the component directory. 

Init SB: Run the ADA initialization for the Software Base. 

Clear FL: Clear the file list. 

Clear ALL: Clear file list and Component specification. 



E. MAKEFILE 



PSDL_TYPE_ROOT = /home/greg/PSDL_TYPE-May97 
GEN = m4 generator. m4 
DEL = /bin/rm -f 

INCLUDES = -1$ (PSDL_TYPE_ROOT) /GNAT \ 

-1$ (PSDL_TYPE_ROOT) /GENERIC_TYPES /GNAT \ 
-1$ (PSDL_TYPE_ROOT) /INSTANTIATIONS/GNAT 

COMPILE. ada = gcc $ (ADAFLAGS) $ (INCLUDES) 

.SUFFIXES: .g . adb 



$ (GEN) $< > $* .adb 

$ (COMPILE. ada) -c $*.adb $ (OUTPUT_OPTION) 
$ (DEL) $* .adb $* .ali 



. g . adb : 

$ ( GEN ) $< > $@ 



ADAFLAGS = -g 

WARNINGS = -Werror -Wimplicit -Wreturn-type -Wunused -Wswitch -Wcomment -Wformat \ 
-Wchar-subscripts -Wparentheses -Wtemplate-debugging -Wpointer-arith \ 
-Wcast-align -Wstrict-prototypes -Wmissing-prototypes -Wnested-externs \ 
-Woverloaded-virtual -Winline -Wconversion -Wmissing-declarations 

CXXFLAGS = -g $ (WARNINGS) -I/usr/include/g++ 



# Don't use warnings on the "ADA" generated "C" code 
C FLAGS = -g 

LDFLAGS = -L/usr/Xl 1R6/Iib -L/usr/gnat/lib/gcc-lib/i38 6-linux/2 . 7 . 2 . 1/adalib \ 
-L/usr/lib/gcc-lib/i38 6-linux/2 .7.2. 1/adalib/ -L/home/greg/psdl_lib 
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LOADLIBES 


= -lXm -lXpm -IXt -ISM -1ICE -lXext -1X11 -lpsdl -Ignat 


XGui_SRCS 


= Gui.C SearchDialog.C MaintenanceDialog . C PromptDialog . C Menu.C SDE.C \ 
DisplayProgress . C Callbacks. C Utils. C 


XGui_OBJS 


- Gui.o SearchDialog . o MaintenanceDialog . o PromptDialog . o Menu.o SDE.o \ 
DisplayProgress . o Callbacks. o Utils. o 



SB_OB JS = sb_interf ace . o candidate_types . o component_id_types . o haase_diagram. o \ 
profile_calc . o prof ile_types . o psdl_prof ile . o sb_utils.o sig_match.o \ 
sig_match_types . o sof tware_base . o profile_f ilter_pkg. o b_ada_system. o 

XGui : $ (XGui_OBJS) $(SB_OBJS) 

$ (LINK . C ) -o XGui $<XGui_OBJS) $ (SB_OBJS) $ (LOADLIBES) 

all: XGui 



clean : 

$ (DEL) 

depend : 


XGui *.o *.ali *.adb *.bak core 



makedepend -I/usr/include -I/usr/include/g++ $ (XGui_SRCS) 
install : 

/bin/cp -f XGui /home/greg/bin/demoXGui 
# DO NOT DELETE THIS LINE — make depend depends on it. 
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APPENDIX E ADA FILTERING SOURCE CODE 



The following appendix is the ADA source code for Jeff Herman’s [1] Profile 
Filtering and Signature Matching. It is included here because some of the routines were 
modified for use in this thesis project. The following files were modified: 



• candidate_types.g 

• component_id_types.ads 

• component_id_types.g 

• haase_diagram.ads 

• haase_diagram.g 

• profile_types.ads 

• profile_types.g 

• psdl_profile.ads 

• psdl_profile.g 

• sig_match_types.g 

• software_base.ads 

• software_base.g 

A. CANDIDATE TYPES.ADS 



-- Package Spec: candidate_types 



with generic_sequence_pkg; 
with ordered_set_pkg; 

with component_id_types ; use component_id_types ; 
with sig_match_types; use sig_match_types ; 

package candidate_types is 

RANK UNKNOWN: constant := -1.0; 



-- Candidate 

type Candidate is record 
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profile_rank : float; 
keyword_rank : float; 

signature_matches : SigMatchNodePtrSet ; 
component_id : ComponentID; 
end record; 

function candidateEqual ( cl : in Candidate; c2 : in Candidate) return boolean; 
function candidateLessThan (cl : in Candidate; c2 : in Candidate) return boolean; 
procedure candidateAssign (cl : in out Candidate; c2 : in Candidate); 
procedure candidatePut ( the_candidate : in Candidate); 
procedure candidatePrint ( the_candidate : in Candidate); 

function newCandidate return Candidate; 

procedure generateSigMatchHistogram( filename : in string; c: in Candidate); 



-- CandidateSequence 

-- Note: should use addCandidate to add a candidate to the CandidateSequence. 
addCandidate keeps the CandidateSequence sorted. 

package candidate_sequence_pkg is new generic_sequence_pkg ( 
t => Candidate, average_size => 4); 

subtype CandidateSequence is candidate_sequence_pkg . sequence; 

function candidateSequenceEqual is 

new candidate_sequence_pkg . generic_equal (eq => candidateEqual); 

function candidateSequenceMember is 

new candidate_sequence_pkg . generic_member (eq => candidateEqual); 

procedure candidateSequenceRemove is 

new candidate_sequence_pkg. generic_remove (eq => candidateEqual); 

function candidateSequenceSort is 

new candidate_sequence_pkg . generic_sort ( "<" => candidateLessThan); 

procedure candidateSequencePut is 

new candidate_sequence_pkg . generic_put (put => candidatePut); 

procedure addCandidate (c : in Candidate; cs : in out CandidateSequence); 



-- CandidateSet 

package candidate_set_pkg is new ordered_set_pkg ( t => Candidate, 
eq => candidateEqual, "<" => candidateLessThan) ; 

subtype CandidateSet is candidate_set_pkg. set ; 

procedure candidateSetPut is 

new candidate_set_pkg . generic_put (put => candidatePut); 

function prof ileSkim(profile_threshold : in float; 

the_candidates : in CandidateSet) return CandidateSet; 

procedure generateProf ileHistogram ( filename : in string; 
the_candidates : in CandidateSet); 

end candidate_types ; 

B. CANDIDATE TYPES.G 



-- Package Body: candidate_types 



with ada.text_io; 

with ada . f loat_text_io; 

with ada . integer_text_io; 

with component_id_types; use component_id_types; 
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package body candidate_types is 



— Function: candidateEqual 

function candidateEqual (cl : in Candidate; c2: in Candidate) return boolean is 
begin 

return cl . component_id = c2 . component_id; 
end candidateEqual; 



— Function: candidateLessThan 

— Description: sort candidates in rank descending order (highest 

rank first) . 

function candidateLessThan (cl : in Candidate; c2 : in Candidate) return boolean is 
begin 

-- TODO 

if cl . profile_rank > c2 . prof ile_rank then 
return true; 

-- the followin test for less-than is just being paranoid 
-- about potential float equality problems 
elsif cl . prof ile_rank < c2 . prof ile_rank then 
return false; 

else 

return cl . component_id < c2 . component_id; 
end if; 

end candidateLessThan; 



— Procedure: candidateAssign 

— Description: makes a safe copy of a Candidate. This is primarily 

necessary because of the SigMatchNodeSet 

procedure candidateAssign (cl : in out Candidate; c2 : in Candidate) is 
begin 

cl . profile_rank := c2 . prof ile_rank; 
cl . keyword_rank := c2 . keyword_rank; 
cl . component_id := c2.component_id; 

sig_match_node_ptr_set_pkg . assign (cl . signature_matches , 
c2 . signature_matches ) ; 
end candidateAssign; 



-- Procedure: candidatePut 

procedure candidatePut (the_candidate : in Candidate) is 
begin 

ada . text_io . put ( " ( "); 

ada . integer_text_io . put ( the_candidate . component_id, 0) ; 
ada . text_io . put ( " | " ); 

ada . f loat_text_io . put ( the_candidate . prof ile_rank, 1, 2 , 0); 
ada . text_io . put ( M | " ) ; 

sigMatchNodePtrSetPut ( the_candidate . signature_matches ) ; 
ada . text_io.put (" )"); 
end candidatePut; 



-- Procedure: candidatePrint 

procedure candidatePrint (the_candidate : in Candidate) is 
begin 

ada . text_io .put ( " Component ID: "); 

ada . integer_text_io . put { the_candidate . component_id, 0) ; 
ada . text_io . new_line; 

ada . text_io . put ( " Profile Rank: " ) ; 

ada . float_text_io .put (the_candidate .prof ile_rank, 1, 2 , 0) ; 
ada . text_io . put ( " Number of signature match solutions: "); 
ada . integer_text_io . put (sig_match_node_ptr_set_pkg . size ( 
the_candidate . signature_matches ) , 0) ; 
ada . text_io . new_line ; 

sigMatchNodePtrSetPrint ( the_candidate . signature_matches ) ; 
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end candidatePrint ; 



-- Function: newCandidate 

function newCandidate return Candidate is 
return_val: Candidate; 
begin 

return_val . prof ile_rank := RANK_UNKNOWN; 
return_val . keyword_rank := RAN K_UN KNOWN; 

return_val . signature_matches : = sig_match_node_ptr_set_pkg . empty; 
return return_val; 
end newCandidate; 



— generateSigMatchHistogram 

— Description: generates histogram data of the signature ranks for the 

set of signature matches and saves it to a file so it can be 
read by a charting program. The format is one line 
for each pair where the first item of the pair is the 
profile rank and the second item is the number of 
candidates with that rank. 

procedure generateSigMatchHistogram( filename : in string; c: in Candidate) is 
ft: ada . text_io . f ile_type; 
last_rank: float; 
count: natural := 0; 
temp_snp: SigMatchNodePtr; 

procedure putPair ( the_rank : float; the_count : natural) is 
begin 

ada . f loat_text_io . put ( f t , the_rank, 1, 2, 0); 
ada . text_io . put ( f t , " " ) ; 
ada . integer_text_io . put ( ft, the_count ) ; 
ada . text_io . new_line (ft) ; 
end putPair; 

begin 

ada . text_io . create ( ft , ada . text_io . out_f ile , filename); 

if sig_match_node_ptr_set_pkg . size (c . signature_matches) = 0 then 
ada . text_io . close ( f t ) ; 
return; 
end if; 

temp_snp := sig_match_node_ptr_set_pkg . fetch (c . signature_matches , 1); 
last_rank : = temp_snp . signature_rank; 

f oreach ( (snp: SigMatchNodePtr), sig_match_node_ptr_set_pkg . scan, 

(c . signature_matches) , 
if snp. signature_rank /= last_rank then 
putPair ( last_rank, count); 
last_rank := snp . signa ture_rank; 
count := 1; 

else 

count := count + 1; 
end if; 

) 

putPair (last_rank, count); 

ada . text_io . close ( f t ) ; 
end generateSigMatchHistogram; 



-- Procedure: addCandidate 

procedure addCandidate {c : in Candidate; cs: in out CandidateSequence ) is 
begin 

candidate_sequence_pkg . add ( c, cs ) ; 
cs := candidateSequenceSort (cs ) ; 
end addCandidate; 



— Function: profileSkim 



(for CandidateSet) 

132 



— Description: filters out the candidates that do not meet the given 
profile threshold. 

function prof ileSkim (prof ile_threshold : in float; 

the_candidates : in CandidateSet ) return CandidateSet is 
return_val: CandidateSet; 
begin 

return_val := candidate_set_pkg . empty; 

foreach((c: Candidate), candidate_set_pkg . scan, ( the_candidates ) , 
if c . prof ile_rank >= prof ile_threshold then 
candidate_set_pkg. add (c, return_val) ; 
end if; 

) 

return return_val; 
end profileSkim; 



-- Procedure: generateProf ileHis togram 

— Description: generates histogram data of the profile ranks for the 
set of candidates and saves it to a file so it can be 
read by a charting program. The format is one line 
for each pair where the first item of the pair is the 
profile rank and the second item is the number of 
candidates with that rank. 

procedure generateProf ileHistogram ( filename : in string; 
the_candidates : CandidateSet) is 
ft: ada . text_io. file_type; 
last_rank: float; 
count: natural := 0; 
temp_candidate : Candidate; 

procedure putPair ( the_rank : float; the_count : natural) is 
begin 

ada . float_text_io . put ( f t, the_rank, 1, 2, 0); 
ada . text_io . put ( f t, " ") ; 
ada . integer_text_io .put ( ft, the_count) ; 
ada . text_io.new_line ( ft) ; 
end putPair; 

begin 

ada . text_io . create ( ft , ada . text_io . out_file, filename); 

if candidate_set_pkg . size ( the_candidates ) = 0 then 
ada . text_io . close (ft) ; 
return; 
end if; 

temp_candidate := candidate_set_pkg . fetch ( the_candidates , 1); 
last_rank := temp_candidate . prof ile_rank; 

foreach((c: Candidate), candidate_set_pkg . scan, ( the_candidates ) , 
if c . prof ile_rank /= last_rank then 
putPair (last_rank, count); 
last_rank := c . prof ile_rank; 
count := 1; 
else 

count := count + 1; 
end if; 

) 

putPair ( last_rank, count); 

ada. text_io . close ( ft) ; 
end generateProf ileHistogram; 

end candidate_types ; 

C. COMPONENT ID TYPES.ADS 



-- Package Spec: component_id_types 
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with gnat.io; use gnat.io; 



with generic_map_pkg; 
with generic_set_pkg; 

with psdl_concrete_type_pkg; use psdl_concrete_type_pkg; 
with sb_utils; 

with psdl_prof ile ; use psdl_prof ile ; 
package component_id_types is 



-- ComponentID 

subtype ComponentID is integer; 

procedure componentIDPut (c_id: ComponentID); 



-- Component 

-- Note: Make sure to use crea teComponent to instantiate a new Component. 
This will ensure that generics_mapping is initialized. 

type Component is record 
psdl_f ilename : text; 
generics_mapping : GenericsMap; 
end record; 

function createComponent return Component; 

procedure addGenericsMapping ( generic_type_id : psdl_id; 

actual_type_id : psdl_id; the_component : in out Component); 

function componentEqual ( cl : in Component; c2 : in Component) return boolean; 

procedure componentPut ( the_component : in Component); 
procedure componentGet ( the_component : out Component); 



— ComponentI DMap 

package component_id_map_pkg is new generic_map_pkg ( 
key -> ComponentID, 
result => Component, 
eq_key => 

eq_res => ComponentEqual, 
average_size => 8); 

subtype ComponentIDMap is component_id_map_pkg .map; 

-- These raise an execption 

-- procedure componentl DMapPut is new component_id_map_pkg . generic_put ( 

-- key_put => put, res_put => componentPut ) ; 

— procedure componentl DMapFilePut is new component_id_map_pkg . generic_f ile_put ( 
key_put => put, res_put => componentPut); 

procedure componentl DMapPut (Comp_I DMap : ComponentIDMap); 



-- ComponentIDSet 

package component_id_set_pkg is new generic_set_pkg ( 
t => ComponentID, 
average_size => 8, 

eq => "=" ); 

subtype ComponentIDSet is component_id_set_pkg . set; 
procedure ComponentIDSet Put is 

new component_id_set_pkg . generic_put (put => sb_utils . IntPut ) ; 

procedure componentIDSetFilePut is 

new component_id_set_pkg . generic_f ile_put (put => componentIDPut); 
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procedure component IDSetGet is 

new component_id_set_pkg. generic_input (input => sb_utils . IntGet ) ; — gnat. io. put) 
end component_id_types; 

D. COMPONENT_ID_TYPES.G 



-- Package Body: component_id_types 



with text_io; 

with ada . integer_text_io; 

with psdl_concrete_type_pkg; use psdl_concrete_type_pkg; 
package body component_id_types is 
package Int_IO is new Text_IO . Integer_IO (Num => Integer); 



-- Procedure: componentIDPut 

procedure componentIDPut (c_id : ComponentID) is 
begin 

ada . integer_text_io .put (c_id, 0) ; 
end componentIDPut; 



-- procedure: componentIDMapPut 

procedure componentIDMapPut (Comp_IDMap : Component I DMap) is 
map_size: integer; 

begin 

foreach ( (the_comp_id: ComponentID; the_component : Component), 
component_id_map_pkg. scan, (Comp_lDMap) , 
lrit_IO. Put ( the_comp_id, 0); 
text_io .put ( " ); 

text_io.put (convert ( the_component . psdl_f ilename ) ) ; 
text_io . put ( " ; "); 

map_size := generics_map_pkg. size ( the_component . generics_mapping) ; 
if map_size < 1 then 
text_io . put ( " ; " ) ; 
else 

genericsMapPut ( the_component . generics_mapping) ; 
end if; 

text_io . new_line; 

) 

end componentIDMapPut; 



-- Procedure: createComponent 

function createComponent return Component is 
return_val: Component; 
begin 

generics_map_pkg. create (empty, return_val . generics_mapping) ; 
return return_val; 
end createComponent; 



— Procedure: addGenericsMapping 

procedure addGenericsMapping (generic_type_id: psdl_id; 

actual_type_id : psdl_id; the_component : in out Component) is 
begin 

gene rics_map_pkg .bind (gene ric_type_id, actual_type_id, 
the_component . generics__mapping) ; 
end addGenericsMapping; 



-- Function: componentEqual 
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function componentEqual (cl : in Component; c2 : in Component) return boolean is 
begin 

if not eq (cl . psdl_f ilename, c2 .psdl_filename) then 
return false; 
end if; 

return genencs_map__pkg . equal (cl . generics_mapping, c2 . generics_mapping) ; 
end componentEqual; 



— Procedure: componentPut 

procedure componentPut { the_component : in Component) is 
begin 

text_io.put (convert (the_component .psdl_f ilename) ) ; 
text_io.put (" | " ); 

genericsMapPut ( the_component . generics_mapping) ; 
end componentPut; 



-- Procedure: componentGet 

procedure componentGet (the_component : out Component) is 
filename: string ( 1 .. 256) ; 
begin 

text_io . get ( filename ) ; 

— the_component ,psdl_f ilename := text (filename) ; 
--genericsMapGet ( the_component . generics__mapping) ; 
end componentGet; 

end component_id_types ; 

E. HAASE_DIAGRAM.ADS 



-- Package Spec: haase_diagram 



with generic_map_pkg; 

with prof ile_types ; use prof ile_types ; 

with component_id_types ; use component_id_types; 

package haase_diagram is 
-- Types 

-- type HaaseNode is private; 

— type HaaseDiagram is private; 



— HaaseNode 

type HaaseNode is record 
key: ComponentProf ile; 
components: Component IDSet ; 
children: ComponentProfileSet ; 
end record; 

function haaseNodeEqual (hnl : in HaaseNode; hn2: in HaaseNode) 
return boolean; 

procedure haaseNodeAssign ( hnl : in out HaaseNode; hn2 : in HaaseNode); 
procedure haaseNodePut ( the_haase_node : in HaaseNode); 

procedure haaseNodeGet ( the_haase_node : in out HaaseNode; last_node: in out boolean) 
procedure haaseNodePrint ( the_haase_node : HaaseNode); 
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— HaaseDiagram 

package haase_node_map_pkg is new generic_map_pkg ( 
key => ComponentProf ile, 
result => HaaseNode, 
eq_key => componentProfileEqual , 
eq_res => haaseNodeEqual, 
average_size => 8); 

subtype HaaseDiagram is haase_node_map_pkg .map; 

— procedure haaseDiagramPut is new haase_node_map_pkg . generic_put ( 

— key_put => ComponentProf ilePut, res_put => haaseNodePut); 

-- procedure haaseDiagramFilePut is new haase_node_map_pkg . generic_f ile_put ( 
key_put => componentProfilePut , res_put => haaseNodePut) ; 

procedure haaseDiagramPut (the_haase_diagram: HaaseDiagram); 

-- procedure haaseDiagramGet is new haase_node_map_pkg . generic_input ( 
key_input -> component ProfileGet , res_input => haaseNodeGet ) ; 

procedure haaseDiagramGet (diagram: in out HaaseDiagram); 

procedure haaseDiagramPrint ( the_haase_diagram: HaaseDiagram); 

procedure generateGML { the_haase_diagram: in HaaseDiagram; 
filename: in string); 



— Operations 

function createHaaseNode (key : in ComponentProf ile) return HaaseNode; 
function createHaaseDiagram return HaaseDiagram; 

procedure addComponent (the_comp_id: in ComponentID; 
the_haase_node : in out HaaseNode); 

procedure addChild ( the_child_key : in ComponentProf ile; 
the_haase_node : in out HaaseNode); 

procedure addHaaseNode ( the_haase_node : in HaaseNode; 
the_haase_diagram: in out HaaseDiagram) ; 

procedure addBaseNodes ( the_haase_diagram: in out HaaseDiagram); 

procedure connectNodes ( the_haase_diagram: in out HaaseDiagram); 



-- private 

end haase_diagram; 

F. HAASE DIAGRAM.G 



— Package Body: haase_diagram 



with text_io; use text_io; 
with generic_map_pkg; 

with prof ile_types ; use prof ile_types ; 
with component_id_types ; use component_id_types ; 
with psdl_profile; use psdl_profile; 
with sof tware_base; 

package body haase_diagram is 
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Function: createHaaseNode 



— Description: create and initialize a HaaseNode for use. 

function createHaaseNode ( key : in ComponentProfile ) return HaaseNode is 
return_val: HaaseNode; 
begin 

prof ile_id_sequence_jpkg .assign ( return_val . key, key) ; 
return_val . components := component_id_set_pkg. empty; 
return_val . children := component_prof ile_set_pkg . empty; 
return return_val; 
end createHaaseNode; 



-- Function: createHaaseDiagram 

— Description: create and initialize a HaaseDiagram for use. 

function createHaaseDiagram return HaaseDiagram is 
begin 

return haase_node_map_pkg . create ( 

createHaaseNode (prof ile_id_sequence_pkg . empty) ) ; 
end createHaaseDiagram; 



-- Function: addComponent 

— Description: add a ComponentID to the HaaseNode. 

procedure addComponent ( the_comp_id : in ComponentID; 

the_haase_node : in out HaaseNode) is 
begin 

component_id_set_pkg . add ( the_comp_id, the_haase_node . components ) ; 
end addComponent; 



-- Function: addChild 

— Description: add a ComponentProfile that represents the 
key to a child HaaseNode to the HaaseNode. 

procedure addChild (the_child_key: in ComponentProfile; 

the_haase_node : in out HaaseNode) is 
begin 

component_prof ile_set_pkg . add ( the_child_key, the_haase_node .children) 
end addChild; 



-- Function: addHaaseNode 

-- Description: add a HaaseNode to the HaaseDiagram. 

procedure addHaaseNode ( the_haase_node : in HaaseNode; 
the_haase_diagram: in out HaaseDiagram) is 
temp_key: ComponentProfile; 
begin 

prof ile_id_sequence_pkg. assign (temp_key, the_haase_node . key) ; 
haase_node_map_pkg.bind(temp_key, the_haase_node, the_haase_diagram) ; 
end addHaaseNode; 



— Procedure: addBaseNodes 

— Description: add base nodes for the nodes already in the diagram. 

This is done by adding a node for each profile in 

the key for each node in the diagram. Note, duplicates 

will not be added. 

procedure addBaseNodes ( the_haase_diagram: in out HaaseDiagram) is 
new_diagram: HaaseDiagram; 
new_node : HaaseNode; 
new_key: ComponentProfile; 
begin 
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new_diagram := createHaaseDiagram; 

haase_node_map_p kg . assign ( new_diagram, the_haase_diagram) ; 

new_key := prof ile_id_sequence_pkg . empty; 

foreach ( (p_id: ProfilelD) , 

profile_lookup_table_pkg . res_set_pkg . scan, 

(software_base . getProfilelDs ) , 
addProf ilelD {p_id, new_key) ; 

if not haase_node_map_p kg. member (new_key, the_haase_diagram) then 
new_node := createHaaseNode (new_key) ; 
addHaaseNode (new_node, new_diagram) ; 
end if; 

new_key ;= prof ile_id_sequence_pkg . empty; 

) 

haase_nodejmap_pkg . assign ( the_haase_diagram / new_diagram) ; 

haase_node_map_pkg . recycle (new_diagram) ; 
end addBaseNodes ; 



-- Procedure; connectNodes 

-- Description; connect nodes in diagram. Invariant: 

n2 is nl's child iff subbag ( nl . key, n2.key) and 
there is no node n3 such that subbag (nl . key, n3.key) 
and subbag (n3 . key, n2.key). 

Note, an entirely new diagram is constructed because 
scan returns copies of the nodes in the_haase_diagram, 
not the actual nodes. 

procedure connectNodes (the_haase_diagram: in out HaaseDiagram) is 
new_node : HaaseNode; 
new_diagram: HaaseDiagram; 
f ound_n3 : boolean; 
begin 

new_diagram := createHaaseDiagram; 

foreach ( (nl_key: ComponentProf ile; nl: HaaseNode), 

haase_node_map_pkg . scan, ( the_haase_diagram) , 
new_node := createHaaseNode (nl_key) ; 
haaseNodeAssign (new_node, nl) ; 

foreach ( (n2_key: ComponentProfile; n2 : HaaseNode), 

haase_node_map_pkg . scan, ( the_haase_diagram) , 
if not haaseNodeEqual (nl, n2) then 
if subbag (nl_key, n2_key) then 
found_n3 := false; 

foreach ( (n3_key; ComponentProfile; n3 r HaaseNode), 

haase_node_map_pkg . scan, ( the_haase_diagram) , 
if not found_n3 then 

if (not haaseNodeEqual (nl, n3) ) and 

(not haaseNodeEqual (n2 , n3 ) ) then 
if subbag (nl_key, n3_key) and 

subbag (n3_key, n2_key) then 
found_n3 ;= true; 
end i f ; 
end if; 
end if; 

) 

if not found_n3 then 

addChild (n2_key, new_node) ; 
end if; 
end if; 
end if; 

) 

addHaaseNode (new_node, new_diagram) ; 

) 

haase_node_map_pkg . assign (the_haase_diagram, new_diagram) ; 
haase_node_map_pkg . recycle (new_diagram) ; 
end connectNodes ; 



-- Function: haaseNodeEqual 
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-- Description: checks for equality of two haase nodes by 
comparing the keys. 

function haaseNodeEqual (hnl : in HaaseNode; hn2 : in HaaseNode) 
return boolean is 
begin 

return componentProf ileEqual (hnl . key, hn2.key); 
end haaseNodeEqual; 



-- Procedure: haaseNodeAssign 
-- Description: creates a duplicate of hn2 . 

procedure haaseNodeAssign (hnl : in out HaaseNode; hn2 : in HaaseNode) is 
begin 

profile_id_sequence_pkg. assign (hnl. key, hn2.key) ; 
component_id_set_pkg . assign (hnl . components , hn2 . components ) ; 

— component_prof ile_set_pkg . assign (hnl . children, hn2 . children) ; 
end haaseNodeAssign; 



-- Procedure: haaseNodePut 

procedure haaseNodePut ( the_haase_node : in HaaseNode) is 
begin 

componentProf ilePut ( the_haase_node . key) ; 
componentIDSetPut ( the_haase_node . components) ; 
componentProf ileSetPut ( the_haase_node . children) ; 
end haaseNodePut; 



-- Procedure: haaseNodeGet 

procedure haaseNodeGet ( the_haase_node : in out HaaseNode; last_node: in out boolean) is 
first_key: ProfilelD; 
temp_comp_prof ile : ComponentProf ile; 
begin 

componentProf ileGet ( temp_comp_prof ile) ; 

first_key := prof ile_id_sequence_pkg . fetch (temp_comp_prof ile, 1); 
if first_key >= 0 then 
last_node := False; 

the_haase_node := createHaaseNode ( temp_comp_prof ile) ; 
componentIDSetGet ( the_haase_node . components ) ; 
componentProf ileSetGet ( the_haase_node . children) ; 
else 

last_node := True; 
end if; 

end haaseNodeGet; 



— Procedure: haaseNodePrint 

procedure haaseNodePrint ( the_haase_node : in HaaseNode) is 
begin 

put ("Key: "); 

componentProf ilePut ( the_haase_node . key) ; 
new_line; 

put ( "Components : "); 

componentIDSetPut { the_haase_node . components ) ; 
new_line; 

put ( "Children : "); 

componentProf ileSetPut ( the_haase_node . children) ; 
new_line; 

end haaseNodePrint; 



— Procedure: haaseDiagramPrint 

procedure haaseDiagramPrint ( the_haase_diagram: in HaaseDiagram) is 
begin 

foreach ( (node_key : ComponentProf ile ; node: HaaseNode), 
haase_node_map_pkg . scan, ( the_haase_diagram) , 
haaseNodePrint (node) ; 
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new line; 



) 

new_line; 

end haaseDiagramPrint; 



— Procedure: haaseDiagramPut 

procedure haaseDiagramPut (the_haase_diagram: in HaaseDiagram) is 
begin 

foreach ( (node_key: ComponentProfile; node: HaaseNode), 
haase_node_map_pkg . scan, ( the_haase_diagram) , 
haaseNodePut (node) ; 
new_line; 

) 

new_line; 

end haaseDiagramPut; 



— Procedure: haaseDiagramGet 

procedure haaseDiagramGet (diagram: in out HaaseDiagram) is 
node: HaaseNode; 
last_node: boolean; 

begin 

loop 

haaseNodeGet (node, last_node) ; 
if last_node then 
exit; 
end if; 

addHaaseNode (node, diagram) ; 
end loop; 

end haaseDiagramGet; 



-- Procedure: generateGML 

— Description: generate a GML file to graphically represent the 
HaaseDiagram. 

procedure generateGML (the_haase_diagram: in HaaseDiagram; 
filename: in string) is 
id: natural := 0; — unique ID counter 
the_id: natural; 
gml_file: file_type; 

function new_id return natural is 
begin 

id := id + 1; 
return id; 
end new_id; 

package temp_map_pkg is new generic_map_pkg ( 
key => ComponentProfile, 
result => natural, 
eq_key => componentProfileEqual, 
eq_res -> "=" , 
average_size => 8); 
subtype tempMap is temp_map_pkg .map; 

temp_map: tempMap; 

begin 

create (gml_file, out_file, filename); 
put ( gml_f ile, "graph [ id " ) ; 
put (gml_file, integer ' image (new_id) ) ; 
put_line (gml_f ile, " directed 1"); 

t emp_map_p kg . create (id, temp_map) ; 

— make the nodes 

foreach ( (node_key: ComponentProfile; node: HaaseNode), 
haase_node_map_pkg. scan, ( the_haase_diagram) , 
put (gml_f ile, "node [ id ") ; 
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the_id := new_id; 

put (gml_file, integer ' image ( the_id) ) ; 
put (gml_file, ” label """); 

componentProfileFilePut (gml_file, node. key) ; 
put_line (gml_file, """ ] ") ; 

temp_map_pkg .bind (node . key, the_id, temp_map); 



-- make the edges 

f oreach ( (node_key : ComponentProf ile; node: HaaseNode), 
haase_node_map_pkg . scan, ( the_haase_diagram) , 
foreach ( (child_key : ComponentProf ile ) , 

component_profile_set_pkg. scan, (node . children) , 
put (gml_file, "edge [ id ") ; 
put (gml_file, integer ' image (new_id) ) ; 
put (gml_file, " source "); 

put (gml_f ile, integer ’ image ( temp_map_pkg . fetch ( temp_map, 
node . key) ) ) ; 

put ( gml file, " target ” ); 

put (gml_file, integer ' image (temp_map_pkg. fetch (temp_map, 
child_key) ) ) ; 
put_line (gml_file, ” ]”); 

) 

) 



put_line (gml_file, "]”); 
close (gml_file) ; 

temp_map_pkg . recycle ( temp_map) ; 
end generateGML; 

end haase_diagram; 

G. PROFILE CALC.ADS 



— Package Spec: profile_calc 

— This package contains functions and types that support the computation 

— of profiles from numeric representations of signatures. 

— Description of numeric signatures: Positive integers represent 

— instances of non-generic types in the signature. Negative integers 

— represent instances of generic types in the signature. Finally, 

— a 0 is used to terminate the array of integers representing the 
-- signature. 

-- Examples of numeric signatures: 

— [integer, char, float -> integer] ==> [1,2, 3, 1,0] 

— [integer, generic, float -> float] ==> [1,-1, 2, 3,0] 

— [genericl, generic2 -> generic2] ==> [-1,-2, -2,0] 

-- Profiles are sequences of integers. 

— Generic Types: 

-- Generic types cause more than one profile to be generated for a 
-- single signature. Hence, computeArrayProf ileWithGenerics returns an 

— array of ArrayProf iles , Prof ileValues, bound by NumProfiles. 

-- ArrayProf iles are terminated with PROFILE_TERMINATOR. For example, 

— the profile [3, 1,1, 2] is returned as [3, 1, 1, 2, -99] . 

— Eventually a different method for handling generic types will be 

— employed and will likely do away with the ArrayProf ile data type. 



with prof ile_types; use prof ile_types; 
package profile_calc is 
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-- Types 

MAX_SIG_LENGTH: constant := 100; 

MAX_PROFILE_LENGTH: constant := 100; 

MAX_PROFILE_VARIATIONS : constant := 100; — for generic types 
PROFILE_TERMINATOR: constant -99; 

subtype SignatureLengthRange is Positive range 1. . MAX_SIG_LENGTH; 
subtype ProfileLengthRange is Positive range 1. .MAX_PROFILE_LENGTH; 
subtype ProfileVariationRange is Positive range 1 . . MAX_PROFILE_VARIATIONS; 

type Signature is array (SignatureLengthRange) of Integer; 

type ArrayProfile is array (ProfileLengthRange) of Integer; 

type ArrayProfiles is array (ProfileVariationRange) of ArrayProfile; 



— Functions 

function computeProfile (T : in Signature) return Profile; 
function computeArrayProfile (T : in Signature) return ArrayProfile; 

— note NumProfiles should be 0 . . MAX_PROFILE_VARIATIONS , not Natural 
procedure computeArrayProfileWithGenerics ( 

T: in Signature; 

ProfileValues : out ArrayProfiles; 

NumProfiles: out Natural); 

function printSignature ( sig : Signature) return SignatureLengthRange; 
function printArrayProfile (prof : ArrayProfile) return ProfileLengthRange; 

end profile_calc; 

H. PROFILE CALC.G 



-- Package Body: profile_calc 
with gnat.io; use gnat.io; 
with profile_types; use profile_types; 
package body profile_calc is 



— Function: convertToSequence 

— Description: helper function to convert an ArrayProfile (an 

array of ints terminated with PROFILE_TERMINATOR) 
to a Profile (a sequence of ints) . 

function convertToSequence (Prof : ArrayProfile) return Profile is 
return_val: Profile; 
i, count: ProfileLengthRange; 
begin 

count := 1; 

while Prof (count) /= PROFILE_TERMINATOR and count <= MAX_PROFILE_LENGTH loop 
count := count + 1; 
end loop; 

count := count - 1; 

return_val := 0; 

for i in 1.. count loop 

return_val return_val + (long_long_integer (Prof (i) ) * 

(10 ** (count-i) ) ) ; 
end loop; 

return return_val; 
end convertToSequence; 

function printSignature (Sig : Signature) return SignatureLengthRange is 
Num: SignatureLengthRange; 
begin 
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Num := 1; 

Put (" [") ; 

while Sig(Num +1) /= 0 loop 
Put (Sig (Num) ) ; 
if Sig (Num + 2) /= 0 then 
Put (", "); 
end if; 

Num := Num + 1; 
end loop; 

Put (" -> " ) ; 

Put (Sig (Num) ) ; 

Put ("] ") ; 
return Num; 
end printsignature; 

function printArrayProfile (Prof : ArrayProfile) return ProfileLengthRange is 
Num: ProfileLengthRange; 
begin 

Num : = 1 ; 
put rr) ; 

while Prof (Num) /= PROFILE_TERMINATOR and Num < MAX_PROFILE_LENGTH loop 
Put ( Prof (Num) ); 

if Prof (Num + 1) /= PROFILE_TERMINATOR then 
Put (", " ) ; 
end if; 

Num : = Num + 1 ; 
end loop; 

Put("]") ; 
return Num; 

end printArrayProfile; 

function computeProfile (T : Signature) return Profile is 
begin 

return convertToSequence (computeArrayProf ile (T) ) ; 
end computeProfile; 

function computeArrayProf ile (T : Signature) return ArrayProfile is 
Result: ArrayProfile; 

Result_Count : Integer; 

NumResSort: Integer; 

NumOneSorts: Integer; 

I,J: Integer; 

L: SignatureLengthRange; 

SortValues: array (SignatureLengthRange) of Integer; 

SortNums: array (SignatureLengthRange) of Integer; 

NumSorts: Integer; 

Found: Boolean; 
begin 

— Compute Profile[l], Total Number of Sorts. 

Result_Count := 1; 

J := 0; 



— set L to number of elements in T 

— note, this is the first number in the profile 
I : = 1 ; 

while (T ( I ) /= 0 and I <= MAX_SIG_LENGTH) loop 
I := I + 1; 
end loop; 

L := I - 1; 

Result (Result_Count) := L; 

-- Compute Profile [2], Number of Times Result Sort in Signature. 

— note, Nguyen's thesis just uses 0 or 1 to indicate if the 

— result sort is used in the input arguments. Representing 

-- the number of times the result sort is used is finer resolution, 
-- which should partition of the software base better. 

NumResSort := 0; 
for I in 1 . . L loop 
if T ( I ) = T (L) then 

NumResSort := NumResSort + 1; 
end if; 
end loop; 

Result Count := Result Count + 1; 
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— Herman 

— Result (Result_Count) := NumResSort; 

-- Nguyen 

if NumResSort > 1 then 

Result (Result_Count ) := 1; 

else 

Result (Result_Count) : = 0; 

end if; 

— Herman Improvement Profile [3] 

— Add the number of occurrences of the type being defined by the 

— component (if the component is a type) . 

--Result_Count := Result_Count + 1; 

— Result (Re sult_Count) := T(L+2); 

— Herman Improvement Profile [4 .. 8} 

-- Add the number of occurrences of types in the basic sort groups 
Result_Count := Result_Count + 1; 

Result (Result_Count) := T(L+3); 

Result_Count := Result_Count + 1; 

Result (Result_Count) := T(L+4); 

--Result_Count := Result_Count + 1; 

—Result (Result_Count) := T(L+5); 

Result_Count := Result_Count + 1; 

Result (Result_Count ) := T(L+6); 

Result_Count := Result_Count + 1; 

Result (Result_Count) T(L+7); 

-- Generate Helper Arrays 

-- SortValues: an ordered SET of sort values 

e.g. if the signature input T was [1, 1, 2, 1, 0} 

SortValues would be [1, 2] 

— NumSorts: the cardinality of the ordered set SortValues 

e.g. in the above example, NumSorts would be 2 
-- SortNums : the cardinality of each sort in SortValues 

e.g. in the above example, SortValues would be [3, 1] 
for I in 1 . . L loop 
SortNums (I) := 0; 

end loop; 

SortValues (1) T (1) ; 

NumSorts := 1; 

SortNums (1) := 1; 

for I in 2 . . L loop 
Found := False; 
for J in 1.. NumSorts loop 

if T ( I ) = SortValues (J) then 

SortNums (J) := SortNums (J) + 1; 

Found := True; 
end if; 
end loop; 
if not Found then 

NumSorts NumSorts + 1; 

SortValues (NumSorts) := T(I); 

SortNums (NumSorts) := 1; 
end if; 
end loop; 

— Becomes Profile [9] 

-- Compute Profile[3], Number of Sort Groups of Size One. 
NumOneSorts := 0; 
for I in 1.. NumSorts loop 
if SortNums (I) = 1 then 

NumOneSorts := NumOneSorts + 1; 
end if; 
end loop; 

Result_Count := Result_Count + 1; 

Result (Result_Count ) := NumOneSorts; 

-- Becomes Profile [10 . .N] 

— Compute Profile [4 .. N] , Sequence of Sizes of the Sort Groups that 

— Have Size Greater than One. 
for I in 0..L-2 loop 
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for J in l..NumSorts loop 
if SortNums(J) = L-I then 

Result_Count := Result_Count + 1; 

Result (Result_Count ) := L-I; 

end if; 
end loop; 
end loop; 

— Terminate the ArrayProfile 

Result (Result_Count+l) := PROFILE__TERMINATOR; 
return Result; 
end computeArrayProf ile; 

procedure computeArrayProf ileWithGenerics ( 

T: in Signature; 

ProfileValues : out ArrayProf iles ; 

NumProfiles: out Natural) is 
I, G, J, K: Integer; 

L: SignatureLengthRange; 

NewSig: Signature; 

NumGenerics: Integer; 

NumDif fGenerics : Integer; 

Found: Boolean; 

Valj : Integer; 

GenericPos: array (SignatureLengthRange) of Integer; 
ProfileVal: ArrayProfile; 
begin 

NumGenerics := 0; 

NumProfiles := 0; 

Valj : =0; 

NumDif fGenerics := 0; 

G := 0; 

J := 0; 

K := 0; 



— set L to number of elements in T 
I := 1; 

while (T ( I ) /= 0 and I <= MAX_SIG_LENGTH) loop 
I : - I + 1 ; 
end loop; 

L := I - 1; 

for I in 1 . . L loop 
if T ( I ) < 0 then 

if T ( I ) < NumDif fGenerics then 
NumDif fGenerics := T(I); 
end if; 

NumGenerics := NumGenerics + 1; 

GenericPos (NumGenerics) := I; 
end if; 
end loop; 

NumDif fGenerics := -1 * NumDif fGenerics ; 
if NumGenerics = 0 then 
NumProfiles := 1; 

ProfileVal := computeArrayProf ile (T) ; 

ProfileValues ( 1 ) := ProfileVal; 

else 

for G in 1 . .NumDif fGenerics loop 
for I in 1 . . L loop 
NewSig (I) := T (I) ; 

end loop; 

NewSig (L+l) := 0; 

for J in 1 . . L loop 

for I in 1 . .NumGenerics loop 

if T (GenericPos (I ) ) >= -1 * G then 
NewSig (GenericPos (I ) ) := T(J); 

end if; 
end loop; 

-- These following lines are good for debugging. 

-- They print out all the combinations of signatures computed 
Valj:~ printSignature (NewSig) ; 

New Line; 
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ProfileVal := computeArrayProf ile (NewSig) ; 
if NumProfiles = 0 then 
NumProfiles := 1; 

ProfileValues (1 ) := ProfileVal; 

else 

Found := False; 

for K in 1 .« NumProfiles loop 

if Prof ileValues (K) « ProfileVal then 
Found := True; 
end if; 
end loop; 
if not Found then 

NumProfiles := NumProfiles + 1; 

Prof ileValues (NumProfiles) := ProfileVal; 
end if; 
end if; 
end loop; 
end loop; 
end if; 

end computeArrayProf ile Wit hGenerics; 
end profile_calc; 

I. PROFILE_FILTER_PKG.ADS 



— Package Spec: profile_f ilter 



with haase_diagram; use haase_diagram; 
with candidate_types; use candidate_types ; 
with profile_types; use prof ile_types; 

package profile_f ilter_pkg is 

function findCandidates (query_prof ile : in ComponentProf ile ; 
the_haase_diagram: in HaaseDiagram) return CandidateSet ; 

end profile_filter_pkg; 

J. PROFILEFILTERPKG.G 



-- Package Body: profile_filter 



with haase_diagram; use haase_diagram; 

with candidate_types; use candidate_types; 

with component_id_types; use component_id_types; 

package body prof ile_f ilter_pkg is 



-- Function: findCandidates 

— Description: for each profile in query_prof ile start at the base-node 
that represents that profile and perform a depth-first 
search on the haase-diagram. At each node calculate the 
profile rank, create a Candidate with that rank and the 
components in that node, and add it to return_val. 

function findCandidates (query_prof ile : in ComponentProf ile ; 

the_haase_diagram: in HaaseDiagram) return CandidateSet is 
return__val: CandidateSet; 
base_node: HaaseNode; 
base_node_key : ComponentProf ile ; 
num_matches: natural; 
i, j: natural; 



procedure DFSFW (hn : in HaaseNode) is 
temp_candidate : Candidate; 
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begin 

— count the number of profiles in the node that 

— are also in the query 
num_matches := 0; 

i := 1; 
j := l; 

while i <= prof ile_id_sequence_pkg . length (query_profile) and 
j <= prof ile_id_sequence_pkg . length (hn . key) loop 
if profile_id_sequence_pkg . fetch {query_profile, i) = 
prof ile_id_sequence_pkg . fetch (hn. key, j) then 
num_matches := num_matches + 1; 
i := i + 1; 
j := j + 1; 

elsif profile I DLessThan (prof ile_id_sequence_pkg . fetch (query_profile, i) , 
prof ile_id_sequence_pkg . fetch (hn . key, j)) then 
i := i + 1; 

else 

j j + l; 

end if; 
end loop; 

— add the node's components to return val 

foreach { (comp_id: ComponentID) , component_id_set_pkg . scan, 

{hn. components) , 

temp_candidate := newCandidate; 
temp_candidate . profile_rank := 

float (num_matches) / float (prof ile_id_sequence jpkg . length {query_profile) ) 
temp_candidate . component_id := comp_id; 
candidate_set_pkg . add {temp_candi date, return_val) ; 

) 

— recursively call DFSFW on each child 

foreach{ (child: ComponentProfile) , component_profile_set_pkg . scan, 

(hn. children) , 

DFSFW (haase_node_map_pkg . fetch (the_haase_diagram, child) ) ; 

) 

end DFSFW; 
begin 

return_val candidate_set_pkg.empty; 

foreach ( (p_id: ProfilelD) , prof ile_id_sequence_pkg . scan, (query_prof ile ) , 
base_node_key := profile_id_sequence_pkg . empty; 
addProfilelD (p_id, base_node_key) ; 

if haase_node_map_pkg .member (base_node_key, the_haase_diagram) then 
base_node := 

haase_node_map_pkg . fetch (the_haase_diagram, base_node_key) ; 

DFSFW (base_node) ; 
end if; 

) 

return return_val; 
end findCandidates; 

end profile_filter_pkg; 

K. PROFILE TYPES.ADS 



-- Package Spec: prof ile_types 



with gnat.io; 

with generic_sequence_pkg; 
with generic_set_pkg; 
with ordered_map_pkg; 

package prof ile_types is 

procedure my!ntPut(i: integer); 
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Profile 



— package int_sequence_pkg is new generic_sequence_pkg ( 

— t => integer, average_size => 4); 

— subtype Profile is int_sequence_pkg . sequence; 

— function profileEqual is new int_sequence_pkg . generic_equal (eq => "=" ) ; 

— function prof ileLessThan is new int_sequence_pkg . generic_less_than ( "<" => 

— procedure profilePut is new int_sequence_pkg . generic_put (put => gnat . io .put) ; 
-- procedure prof ileFilePut is new int_sequence_pkg . generic_put (put => mylntPut) ; 

subtype Profile is long_long_integer ; 

function profileEqual (pi , p2 : Profile) return boolean; 
function profileLessThan (pi, p2 : Profile) return boolean; 
procedure prof ilePut (p : Profile); 
procedure prof ileFilePut (p : Profile); 
procedure prof ileGet (p : in out Profile); 



— ProfilelD 

subtype ProfilelD is integer; 

function profilelDLessThan (pi , p2 : ProfilelD) return boolean; 
procedure prof ilelDPut (p_id: ProfilelD); 
procedure prof ilelDFilePut (p_id : ProfilelD); 
procedure prof ilelDGet (p_id: in out ProfilelD); 



— ProfileLookupTable 

DEFAULT_PROFILE_ID : constant := -1; 

package prof ile_lookup_table_pkg is new order ed_map_pkg ( 
key => Profile, 
result => ProfilelD, 
eq_key => profileEqual, 
eq_res => " = ", 

"<" => profileLessThan); 

subtype ProfileLookupTable is prof ile_lookup_table_pkg .map; 

procedure prof ileLookupTablePut is new prof ile_lookup_table_pkg . generic_put ( 
key_put => profilePut, res_put => prof ilelDPut ) ; 

procedure prof ileLookupTableGet is new prof ile_lookup_table_pkg . gene ric_input ( 
key_input => prof ileGet, res_input => prof ilelDGet ) ; 

procedure prof ileLookupTableFilePut is new prof ile_lookup_table_pkg . generic_f ile_put ( 
key_put => profilePut, res_put => prof ilelDPut ) ; 



— ComponentProfile 

— Note: should use addProfilelD to add a profile id to the -ComponentProfile. 

addProfilelD keeps the ComponentProfile sorted which is important 
for equality and subbag (multiset subset) testing. 

package prof ile_id_sequence_pkg is new generic_sequence_pkg ( 
t => ProfilelD, average_size => 4); 

subtype ComponentProfile is prof ile_id_sequence_pkg . sequence ; 

function componentProf ileEqual is 

new prof ile_id_sequence_pkg . generic_equal (eq => "=" ); 

function componentProfileMember is 

new profile_id_sequence_pkg . generic_member (eq => "="); 

procedure componentProf ileRemove is 

new prof ile_id_sequence_pkg . generic_remove (eq => "-") ; 

function componentProf ileSort is 

new profile_id_sequence_pkg . generic_sort ( M <" => "<"); 
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function componentProf ileLessThan is 

new prof ile__id_sequence_pkg . generic_less_than ( "<" -> prof ilelDLessThan) ; 

procedure componentProfilePut is 

new profile_id_sequence_pkg.generic_put (put => prof ilelDPut) ; 

procedure componentProf ileFilePut is 

new prof ile_id_sequence_pkg . generic_file_put (put => prof ilelDFilePut ) ; 

procedure componentProfileGet is 

new prof ile_id_sequence_pkg . generic_input (input -> profilelDGet ) ; 
function subbag is 

new profile_id_sequence_pkg . generic_subsequence (eq => "=”) ; 

package component_prof ile_set_pkg is new generic_set_pkg ( 

t => ComponentProf ile , eq => componentProf ileEqual , average_size => 8) ; 
subtype ComponentProf ileSet is component_profile_set_pkg . set ; 

procedure componentProf ileSetPut is 

new component_prof ile_set_pkg . generic_put (put -> componentProfilePut); 

procedure componentProf ileSetGet is 

new component_profile_set_pkg.generic_input (input => componentProfileGet); 

procedure addProfilelD (p_id: in ProfilelD; cp: in out ComponentProfile); 
procedure addProf iles (new_prof iles : in ComponentProfile; 
target: in out ComponentProfile); 

end profile_types ; 

L. PROFILE TYPES.G 



-- Package Body: prof ile_types 



with text_io; 

with ada . long_long_integer_text_io; 
with ada . integer_text_io; 
with sof tware_base ; 
with sb_utils; 

package body prof ile_types is 

package Int_IO is new Text_IO. Integer_IO (Num => Integer); 



— Procedure: mylntPut 

procedure myIntPut(i: integer) is 
begin 

ada . integer_text_io . put (i, 0); 
end mylntPut; 



— Procedure: addProfilelD 

-- Description: adds a ProfilelD to a ComponentProfile by adding the 
ProfilelD to the sequence then sorting the sequence. 

procedure addProf ilelD (p_id: in ProfilelD; cp: in out ComponentProfile) is 
begin 

profile_id_sequence_pkg . add (p_id, cp) ; 
cp := componentProfileSort (cp) ; 
end addProfilelD; 



— Procedure: addProf iles 

— Description: appends the profiles from new_profiles to target then 

sorts target. 
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procedure addProf iles (new_prof iles : in ComponentProf ile ; 
target: in out ComponentProf ile) is 

begin 

target := profile_id_sequence_pkg . append (target, new_prof iles ) ; 
target := ComponentProf ileSort ( target ) ; 
end addProf iles; 



— Function: profileEqual 

function profileEqual (pi, p2 : Profile) return boolean is 
begin 

return pi » p2; 
end profileEqual; 



-- Function: prof ileLessThan 

function prof ileLessThan (pi, p2 : Profile) return boolean is 
begin 

return pi < p2; 
end profileLessThan; 



— Function: profilePut 

procedure prof ilePut (p : Profile) is 
begin 

ada. long_long_integer_text_io.put (p, 0) ; 
end profilePut; 



— Function: profileGet 

procedure profileGet (p : in out Profile) is 
begin 

ada . long_long_integer_text_io . get (p) ; 
end profileGet; 



-- Function: prof ileFilePut 

procedure prof ileFilePut (p : Profile) is 
begin 

profilePut (p) ; 
end profileFilePut; 



— Function: prof ilelDLessThan 

function prof ilelDLessThan (pi, p2 : ProfilelD) return boolean is 
begin 

return sof tware_base . getProf ile (pi ) < sof tware_base . getProfile (p2) 
end prof ilelDLessThan; 



— Procedure: profilelDPut 

procedure prof ilelDPut (p_id : ProfilelD) is 
begin 

ada . integer_text_io . put (p_id, 0 ) ; 
end profilelDPut; 



-- Procedure: profilelDGet 

procedure prof ilelDGet (p_id : in out ProfilelD) is 
j: integer; 
begin 

sb_utils . IntGet ( j ) ; 

P_id := j; 
end profilelDGet; 
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— Function: profilelDFilePut 

procedure profilelDFilePut (p_id: ProfilelD) is 
begin 

profilelDPut (p_id) ; 
end profilelDFilePut; 



-- Function: createProfileLookupTable 

function createProfileLookupTable return ProfileLookupTable is 
begin 

return prof ile_lookup_table_pkg . create ( 0) ; 
end createProfileLookupTable; 

end profile_types; 

M. PSDL PROFILE.ADS 



-- Package Spec: psdl_profile 

— This package contains functions and types that support the collection 

— of operation profiles from a component specified in PSDL. 



with text_io; 

with generic_sequence_pkg; 
with generic_map_pkg; 
with generic_set_pkg; 
with ordered_set_pkg; 

with psdl_concrete_type__pkg; use psdl_concrete_type_pkg; 
with psdl_component_pkg; use psdl_component_pkg; 

with profile_types; use profile_types; 

package psdl_profile is 



— Types 



— OpWithProfile 

type OpWithProfile is record 
op: operator; 
op_profile: ProfilelD; 

end record; 

function opWithProfileEqual (owpl : in OpWithProfile; owp2 : in OpWithProfile) 
return boolean; 

function opWithProfileLessThan (owpl : in OpWithProfile; owp2 : in OpWithProfile) 
return boolean; 

procedure opWithProf ilePut (owp : in OpWithProfile); 



— OpWithProfileSeq 

— Note: should use addOpWithProfile to add an OpWithProfile to the sequence. 

addOpWithProfile keeps the sequence sorted. 

package owp_sequence_pkg is new generic_sequence_pkg ( 
t => OpWithProfile, average_size -> 4); 
subtype OpWithProfileSeq is owp_sequence_pkg . sequence; 

function opWithProfileSeqEqual is 
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new owp_sequence_j?kg . generic_equal (eq -> opWithProfileEqual); 

function opWithProfileSeqMember is 

new owp_sequence_pkg. generic_member (eq => opWithProfileEqual); 

procedure opWithProfileSeqRemove is 

new owp_sequence_pkg . generic_remove (eq => opWithProfileEqual); 

function opWithProfileSeqSort is 

new owp_sequence_pkg. generic_sort ("< H => opWithProfileLessThan); 

procedure opWithProfileSeqPut is 

new owp_sequence_pkg . generic_put (put => opWithProfilePut) ; 

procedure opWithProfileSeqPrint (owp_seq : in OpWithProfileSeq); 

procedure addOpWithProf ile (owp : in OpWithProfile ; 
owp_seq : in out OpWithProfileSeq); 



-- OpWithProfileSet 

package owp_set_pkg is new ordered_set_pkg ( 

t => OpWithProfile, eq => opWithProfileEqual, 

"<” => opWithProfileLessThan) ; 

subtype OpWithProfileSet is owp_set_pkg . set ; 

procedure opWithProfileSetPut is 

new owp_set_pkg.generic_put (put => opWithProfilePut); 

procedure opWithProf ileSetPrint ( owp_set : in OpWithProfileSet); 



-- GenericsMap 

-- Description: this is a mapping of generic type identifiers to 

-- actual types that exist in the component. For example, if the 

— PSDL type Stack has one generic type named Item and has methods 

-- that have parameters that use the types natural, Stack, and 

— boolean then there would be four different instantiations of 

— Stack in the software base representing the four possible 

— mappings for Item: 1. Item => natural, 2. Item => Stack, 

— 3. Item => boolean, 4. Item => Item. Option 4 really just 

— means that Item is mapped to a type that does not appear in the 

— component. Suppose Stack used two generic types. In that case 

— each instantiation's GenericsMap would have two entries, one 

— for each generic type. In such a case the number of different 

— instantiations present in the software base grows rapidly; 

— specifically the number would be the cross product of the number 

— of types across each generic type. 

package generics_map_pkg is new generic_map_pkg ( 
key => psdl_id, 
result => psdl_id, 
eq_key => eq, 
eq_res => eq, 
average_size => 8) ; 

subtype GenericsMap is generics_map_pkg . map; 

procedure psdl_idPut (the_id : in psdl_id) ; 

procedure psdl_idGet ( the_id : in out psdl_id) ; 

procedure genericsMapPut is new generics_map_pkg . generic_put ( 
key_put => psdl_idPut, res_put => psdl_idPut) ; 

procedure genericsMapGet is new generics_map_pkg. generic_input ( 
key_input => psdl_idGet, res_input => psdl_idGet) ; 



-- GenericsMapSet 



package generics_map_set_pkg is new generic_set_j?kg ( 
t => GenericsMap, eq => generics_map_pkg. equal) ; 
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subtype GenericsMapSet is generics_map_set_pkg . set ; 

procedure genericsMapSetPut is 

new generics_map_set_pkg. generic_put (put => genericsMapPut) ; 



— Functions 

function getGenericsMaps ( filename : in string) return GenericsMapSet; 

function getComponentProf ile ( filename : in string; 

generics_mapping : in GenericsMap) return Component Profile; 

function getOpsWithProfiles ( filename : in string; 

generics_mapping : in GenericsMap) return OpWithProf ileSeq; 

function getOpsWithProfiles { filename : in string; 

generics_mapping: in GenericsMap) return OpWithProfileSet; 

end psdl_profile; 



N. PSDL PROFILE.G 



-- Package Body: psdl_profile 



with a_strings; 

with sb_utils; 

with text_pkg; 

with text_io; use text_io; 

with profile_types; use profile_types; 
with profile_calc; use prof ile_calc; 

with psdl_io; 

with psdl_concrete_type_pkg; use psdl_concrete_type_pkg; 

with psdl_component_pkg; use psdl_component_pkg; 

with psdl_program_pkg; use psdl_program_pkg; 

with psdl_id_set_subtype_pkg; 

with psdl_id__pkg; 

with software_base; 

with generic_map_pkg; 
with generic_sequence_pkg; 

package body psdl_profile is 

package signature_seq_pkg is new generic_sequence_pkg { 
t => Signature, average_size => 2); 
subtype SignatureSequence is signature_seq_pkg . sequence; 



— Function: OpWithProf ileEqual 

function opWithProfileEqual {owpl : in OpWithProfile; owp2 : in OpWithProf ile ) 
return boolean is 
begin 

— if not prof ileEqual (owpl . op_profile, owp2 . op_profile ) then 
if owpl . op_profile /= owp2 . op_prof ile then 
return false; 
end if; 

return eq(owpl.op, owp2.op); 
end opWithProfileEqual; 



-- Function: opWithProfileLessThan 

function OpWithProf ileLessThan { owpl : in OpWithProfile; 
owp2 : in OpWithProfile) 
return boolean is 
begin 

— return profileLessThan (owpl . op__profile, owp2 . op__prof ile ) ; 
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return prof ileLessThan (sof tware_base . getProfile (owpl .op_profile) , 
sof tware_base . getProfile (owp2 . op_prof ile) ) ; 
end opWithProfileLessThan; 



— Function: opWithProf ilePut 



procedure opWithProfilePut (owp : in OpWithProf ile ) is 
begin 

put ("("); 

put (convert (name (owp . op) ) ) ; 
put ( " : "); 

foreach ( (the_id : psdl_id; the_tn: type_name), 

type_declaration_pkg. scan, (inputs (owp . op) ) , 
put (convert (the_tn . name) ) ; 
put( M "); 

) 



. put ( M ~ > "); 

foreach ( (the_id : psdl_id; the_tn: type_name), 

type_declaration_pkg . scan, (outputs (owp . op) ) , 
put (convert (the_tn.name) ) ; 
put ( " " ) ; 



) 



put (" | " ) ; 

profilePut (sof tware_base -getProfile (owp . op_pro file) ) ; 
put (")"); 

end opWithProfilePut; 



— Function: opWithProf ileSeqPrint 

procedure opWithProfileSeqPrint (owp_seq: in OpWithProf ileSeq) is 
begin 

foreach ( (owp : OpWithProf ile) , owp_sequence_pkg . scan, (owp_seq) , 
put (convert (name (owp. op) ) ) ; 
put ( " : "); 

foreach ( (the_id: psdl_id; the_tn: type__name) , 

type_declaration_pkg. scan, (inputs (owp. op) ) , 
put (convert (the_tn . name ) ) ; 
put( M "); 

) 

put ( M — > "); 

foreach ( (the_id: psdl_id; the_tn: type_name), 

type_declaration_pkg. scan, (outputs (owp. op) ) , 
put (convert (the_tn.name) ) ; 
put (" " ) ; 

) 

put(" "); 

profilePut ( sof tware_base . getProfile (owp . op_profile) ) ; 
new^line; 

) 

end opWithProfileSeqPrint; 



— Function: opWithProfileSetPrint 

procedure opWithProfileSetPrint (owp_set : in OpWithProfileSet) is 
begin 

foreach ( (owp : OpWithProfile) , owp_set_pkg . scan, (owp_set) , 
put (convert (name (owp .op) ) ) ; 
put ( " : "); 

foreach ( (the_id: psdl_id; the_tn: type_name) , 

type_declaration_pkg . scan, (inputs (owp . op) ) , 
put (convert (the_tn. name) ) ; 
put ( " " ) ; 

) 

put(”-> "); 

foreach ( (the_id: psdl_id; the_tn: type_name) , 

t yP e _declaration_pkg. scan, (outputs (owp . op) ) , 
put (convert ( the_tn . name ) ) ; 
putr M ); 

) 

new_line; 

profilePut (sof tware_base . getProfile (owp . op_prof ile) ) ; 
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new line; 



) 

end opWithProf ileSetPrint; 



— Function: addOpWithProf ile 

procedure addOpWithProf ile ( owp : in OpWithProf ile ; 

owp_seq: in out OpWithProf ileSeq) is 
begin 

owp_sequence_pkg . add (owp, owp_seq) ; 
owp_seq := opWithProf ileSeqSort ( owp_seq) ; 
end addOpWithProf ile; 



-- Function: createNumericSignatures 

-- Description: helper function to create numeric signatures for 
an operator. 

function createNumericSignatures (op : in operator; 

generics_mapping : GenericsMap; type_id: psdl_id) 
return SignatureSequence is 

package type_map_pkg is 
new generic_map_pkg ( 
key => type_name, 
result -> integer, 
eq_key => equal, 
eq_res => "=" , 
average_size => 2) ; 
subtype type_map is type_map_pkg . map; 

-- if a type from the same sort group is already in the map 

— then return the number that represents that sort group 

— otherwise return 0, indicating this a type from a new 

— sort group 

function getSortGroupNum ( the_type : type_name; 

the_type_map : type_map) return integer is 
return_val: integer; 
begin 

return_val := 0; 

f oreach ( ( the_tn : type_name; the_num: integer), 
type_map_pkg. scan, ( the_type_map) , 
if same_sort_group ( the_type, the_tn) then 
return_val := the_num; 

— TODO: should be exit loop here but don’t know how to 
end if; 

) 

return return_val; 
end getSortGroupNum; 

the_inputs: type_declaration := inputs (op); 
the_outputs: type_declaration := outputs (op); 
the_type_map : type_map; 
i, t: natural; 
sort_group_num: integer; 

gen_set : psdl_id_set__subtype_pkg . psdl_id_set; 
temp_signature : Signature; 
temp_tn: type_name; 
return_val: SignatureSequence; 
type_occurrence__count : natural; 

bool_count, char_count, string_count, int_count, f loat_count : natural; 

procedure update_additional_counts ( the_tn : type_name) is 
begin 

if eq (temp_tn.name, type_id) then 

type^occurrence^ount := type_occurrence_count + 1; 
elsif same_sort_group ( the_tn, boolean__type ) then 
bool_count := bool_count + 1; 
elsif same_sort_group ( the_tn, character_type ) then 
char_count := char_count + 1; 
elsif same__sort_group ( the_tn, string_type) then 
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string_count := string_count + 1; 
elsif same_sort_group { the_tn, integer_type ) then 
int_count int_count + 1; 
elsif same_sort_group { the_tn, float_type) then 
float_count := float_count + 1; 
end if; 

end; 

begin 

type_map_p kg .create (0, the_type_map) ; 

-- for each output 

foreach ( (o_id: psdl_id; o_tn: type_name) , 

type^declarstion^kg. scan, { the_outputs) , 
t ype_map_p kg . recycle ( the_type_map) ; 
t := 0; 
i := 0; 

type_occurrence_count := 0; 
bool_count := 0; 
char_count := 0; 
string_count := 0; 
int_count := 0; 
float_count := 0; 

-- for each input 

foreach ( (i_id: psdl_id; i_tn: type_name) , 

type_de c la ra tion_pkg . scan, (the_inputs) , 

-- check if type is a generic type or a regular type 
if gene rics_map_pkg . membe r (i_tn. name, generics_mapping) then 
temp_tn := create { 

generics_map_pkg . fetch (generics_mapping, i_tn.name) , 
psdl_id_sequence_pkg . empty, 
type_decl ar ation_pkg . create (null_type ) ) ; 

else 

— could probably use i_tn as is rather than create 

— a copy but we're being safe in case i_tn has some 

— residue in its formals and gen_pars 
temp_tn := create (i_tn. name, 

psdl_id_sequence_pkg . empty, 
type_declaration_pkg . create (null_type) ) ; 

end if; 

update_additional_counts (temp_tn) ; 

-- if the type isn't in the map yet then put it in 
if not type_map_pkg .member (temp_tn, the_type_map) then 

sort_group_num := getSortGroupNum ( temp_tn, the_type_map) 
if sort_group_num = 0 then 
t := t + 1; 

type_map_pkg .bind (temp_tn, t, the_type_map) ; 
end if; 
end if; 

-- add the input's sort group number 
i := i + 1; 

temp_signature (i) ;= getSortGroupNum (temp_tn, the_type_map) ; 

) 

-- handle the output 

-- check if type is a generic type or a regular type 
if generics_map_pkg .member (o_tn. name, generics_mapping) then 
temp_tn := create { 

generics_map_pkg. fetch (generics_mapping, o_tn. name) , 
psdl_id_sequence_pkg . empty, 
type_declaration_pkg . create (null_type) ) ; 

else 

— could probably use o_tn as is rather than create 
““ a copy but we're being safe in case o_tn has some 

— residue in its formals and gen_pars 
temp_tn := create (o_tn .name, 

psdl_id_sequence_pkg . empty, 
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type_declaration_pkg . create (null_type) ) ; 

end if; 

update_additional_counts (temp_tn) ; 

-- if the type isn't in the map yet then put it in 
if not type_map_p kg. member (temp_tn, the_type_map) then 

sort_group_num := getSortGroupNum (temp_tn, the_type_map) ; 
if sort_group_num = 0 then 
t :=t+l; 

type_map_pkg.bind (temp_tn, t, the_type_map) ; 
end if; 
end if; 



— add the output's sort group number 
i := i + 1; 

temp_signature (i) := getSortGroupNum(temp_tn, the_type_map) ; 

-- mark end of signature 
i := i + 1; 

temp_signature (i) := 0; 

— add the type_occurrence_count to the signature 
i := i + 1; 



temp_signature (i) := type_occurrence_count ; 



— add basic type counts in 
i := i + 1; 
temp_signature (i) 
i := i + 1; 
temp_signature (i) 
i := i + 1; 
temp_signature (i) 
i : = i + 1 ; 
temp_signature (i) 
i := i + 1; 
temp_signature (i) 



= bool_courtt; 

= char_count; 

= string_count ; 
= int_count; 

= float count; 



i := i + 1; 

temp_signature (i) := 0; 

— add the signature to the sequence of signatures 
signature_seq_j?kg. add ( temp_signature, return_val) ; 



return return_val; 
end createNumericSignatures; 



— Function: getOperatorProf iles 

— Description: helper function to collect the profiles for 

an operator. A ComponentProf ile (sequence of 
profiles) is used because if an operator has 

— more than one output it is treated as if there 
is a separate operator for each output. 

function getOperatorProf iles (op : operator; 

generics_mapping : in GenericsMap; type_id: psdl_id) 
return ComponentProf ile is 

return_val: ComponentProfile; 

numeric_sigs : SignatureSequence; 

begin 

— convert the operator's signature to numeric signatures 

— (see the comments in the specification of prof ile__calc) 

numeric_sigs := createNumericSignatures (op, generics_mapping, type_id) 

— compute the profile for each signature 

foreach ( (sig: Signature), signature_seq_pkg . scan, (numeric_sigs ) , 
addProf ile ID ( sof tware_base . get Prof ile ID (compute Profile (sig) ) , 
return_val) ; 



158 



) 

return return_val; 
end getOperatorProfiles; 



— Function: getComponentProf ile 

-- Description: this function will return the ComponentProfile 
for a component specified in PSDL in the PSDL 
file filename . 

function getComponentProfile ( filename : in string; 

generics_mapping: in GenericsMap) return ComponentProfile is 

the_f ile : file_type; 
the_prog: psdl_program; 
return_val: ComponentProfile; 

begin 

— parse the psdl file to create a psdl_program 
open (the_file, IN_FILE / filename); 

assign (the_prog, psdl_program_pkg. empty_psdl_program) ; 
psdl_io. get (the_file, the_prog) ; 
close (the_file) ; 

— if the program contains more than one component 

— then just get the first one since the program 
-- is only supposed to have one (a requirement of 

— this implementation) 

f oreach ( (c_id : psdl_id; c: psdl_component ) , 
psdl_program_map_pkg . scan, (the_prog) , 

— if the component is a single operator then just 

— get the profile for that operator 

if component_category (c) = psdl_operator then 

addProfiles (getOperatorProfiles (c, generics_mapping, empty) , 
return_val) ; 

— otherwise the component is a type so get the profiles 

— for each of its operators 
else 

foreach((id: psdl_id; o: operator), 

operation_map_pkg. scan, (operations (c) ) , 

addProfiles (getOperatorProfiles (o, generics_mapping, 
psdl_id_pkg.Upper_To_Lower (c_id) ) , return_val) ; 

) 

end if; 



) 



— TODO: need to break out of this loop so that only the 
first component is processed. 



return return_val; 
end getComponentProfile; 



-- Function: splitOp 

-- Description: helper function to split an operator with more 
than one output into a sequence of operators 
where each operator has one of the outputs. 

When splitting, instances of the operator's generic 
types in the inputs and the outpus are converted to 
their mapped types according to the generics_mapping . 
Each split operator's profile is then calculated. 

function splitOp (op: operator; generics_mapping : in GenericsMap; 
type_id: psdl_id) 
return OpWithProf ileSeq is 
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return_val: OpWithProf ileSeq; 
temp_owp: OpWithProf ile; 
temp_output_name : psdl_id; 
temp_output_type : type_name; 
numeric_sigs : SignatureSequence; 

begin 

— for each output 

foreach ( (o_id : psdl_id; o_tn: type_name), 

tyP e _declaration_pkg. scan, (outputs (op) ) , 

-- make a copy of op but with only the current output 
temp_owp.op := make_atomic_operator ( 
psdl_name => name (op), 
ada_name => ada_name (op) , 
gen_par => generic_parameters (op) , 
keywords -> keywords (op) , 
axioms => axioms (op), 
state => states (op)); 

-- add the inputs 

foreach ( (i_id: psdl_id; i_tn: type_name), 

type_declaration_pkg. scan, (inputs (op) ) , 
if gene r ics_map_pkg. membe r (i_tn. name, generics_mapping) then 
add_input (i_id, create ( 

generics_map_pkg. fetch (generics_mapping, i_tn.name) , 
psdl_id_sequence_pkg . empty, 
type_declaration_pkg . create (null_type) ) , 
temp_owp .op) ; 

else 

add_input (i_id, i_tn, temp_owp . op) ; 
end if; 

) 

-- add the output 

if gene rics_map_pkg .member (o_tn.name, generics_mapping) then 
add_output (o_id, create ( 

generics_map_pkg. fetch (generics_mapping, o_tn.name) , 
psdl_id_sequence_pkg . empty, 
type_declaration_pkg. create (null_type) ) , 
temp_owp. op) ; 

else 

add_output (o_id, o_tn, temp_owp . op) ; 
end if; 

-- Convert the new operator's signature to numeric signatures 
-- (see the comments in the specification of prof ile_calc) . 

— Note the call to createNumericSignatures can now just pass 

— an empty GenericsMap since the generics were mapped to actual 
-- types in the above code. 

numeric_sigs := 

createNumericSignatures (temp_owp . op, 

generics_map_pkg . create (empty) , type_id) ; 

-- compute the new operator's profile 

temp_owp . op_profile := sof tware_base . getProf ilelD (computeProf ile ( 
signature_seq_pkg . fetch (numeric_sigs , 1 ) ) ) ; 

— add the new operator-with-profile to return_val 
addOpWithProf ile (temp_owp, return_val) ; 

) 

return return_val; 
end splitOp; 



-- Function: getOpsWithProf iles 

-- Description: constructs a sequence of OpWithProf iles (a PSDL operator 
and its corresponding profile) representing the operators 
in the PSDL component specified in filename. 

function getOpsWithProf iles ( filename : in string; 
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generics_mapping : in GenericsMap) return OpWithProf ileSeq is 

the_file: file_type; 
the_prog: psdl_program; 

return_val, foo: OpWithProf ileSeq := owp_s equence_p kg . empty; 
begin 

— parse the psdl file to create a psdl_program 
open (the_file, IN_FILE, filename); 

assign (the_prog, psdl_program_pkg . empty_psdl_program) ; 
psdl_io. get (the_file, the_prog) ; 
close (the_file) ; 

-- if the program contains more than one component 

— then just get the first one since the program 

— is only supposed to have one (a requirement of 

-- this implementation) . Generic maps need a method 

— that allows the user to fetch a single mapping 

— in the map. 

foreach ( (c_id : psdl_id; c: psdl_component ) , 
psdl_program_map_pkg . scan, (the_prog) , 

— if the component is a single operator then just 
-- get that operator 

if component_category (c) = psdl_operator then 

foreach ( (owp : OpWithProfile) , owp_sequence_pkg . scan, 
(splitOp(c, generics_mapping, empty)), 
addOpWithProfile (owp, return_val) ; 

) 

— otherwise the component is a type so get 

— each of its operators 
else 

foreach((id: psdl_id; o: operator), 

operation_map_pkg . scan, (operations (c) ) , 

foreach ( (owp : OpWithProfile), owp_sequence_pkg . scan, 
(splitOp(o, generics_mapping, 

psdl_id_pkg . Upper_To_Lower (c_id) ) ) , 
addOpWithProfile (owp, return_val) ; 

) 

— in the above statement we 

— temporally pass the generic parameters for the whole 

— type, c. Should really just pass the generic 

-- parameters for the operation, o, only. This will 

— happen when generics get reworked. 

) 

end if; 



) 



TODO: need to break out of this loop so that only the 
first component is processed. 



return return_val; 
end getOpsWithProfiles; 



-- Function: getOpsWithProfiles 

-- Description: constructs a set of OpWithProf iles (a PSDL operator 

and its corresponding profile) representing the operators 
in the PSDL component specified in filename. 

function getOpsWithProfiles ( filename : in string; 

generics_mapping : in GenericsMap) return OpWithProf ileSet is 

the_file: file_type; 
the_prog: psdl_program; 
return_val: OpWithProf ileSet ; 

begin 

— parse the psdl file to create a psdl_program 
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open ( the_f lie, IN_FILE, filename); 

assign (the_prog, psdl_program_pkg . empty_psdl_program) ; 
psdl_io . get ( the_file, the_prog) ; 
close ( the_file) ; 

— if the program contains more than one component 

— then just get the first one since the program 

— is only supposed to have one (a requirement of 

— this implementation) . Generic maps need a method 

— that allows the user to fetch a single mapping 

— in the map. 

foreach ( (c_id: psdl_id; c: psdl_component) , 
psdl_program_map_pkg. scan, (the_prog) , 

— if the component is a single operator then just 

— get that operator 

if component_category (c) - psdl_operator then 

foreach ( (owp : OpWithProfile) , owp_sequence_pkg. scan, 
(splitOp(c, generics_mapping, empty)), 
owp_set_pkg. add (owp, return_val) ; 

) 

-- otherwise the component is a type so get 

— each of its operators 
else 

foreach ((id: psdl_id; o: operator), 

operation_map_pkg . scan, (operations (c) ) , 

foreach ( (owp : OpWithProfile), owp_sequence_pkg. scan, 
(splitOp(o, generics_mapping, 

psdl_id_pkg. Upper_To_Lower (c_id) ) ) , 
owp_set_pkg . add (owp, return_val) ; 

) 

— in the above statement we 

— temporally pass the generic parameters for the whole 

— type, c. Should really just pass the generic 

-- parameters for the operation, o, only. This will 

— happen when generics get reworked. 

) 

end if; 



) 



TODO: need to break out of this loop so that only the 
first component is processed. 



return return_val; 
end getOpsWithProf iles ; 



-- Procedure: psdl_idPut 

procedure psdl_idPut ( the_id: in psdl_id) is 
begin 

put ( conve rt ( th e_id ) ) ; 
end psdl_idPut; 



— Procedure: psdl_idGet 

procedure psdl_idGet ( the_id : in out psdl_id) is 
IO_buffer: string ( 1 .. 256) ; 
last: integer; 
begin 

sb_utils . get_char_word ( IO_buf fer, last) ; 
the_id psdl_id (a_strings . to_a (IO_buf fer ( 1 .. last) )) ; 
end psdl_idGet; 



-- Function: getGenericsMap 

— Description: generates all the possible mappings of generic types 
to actual types for all the generic parameters in 
the component specified in the PSDL file, filename. 
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See description of GenericsMap in psdl_profile . ads . 

This is done by collecting all the types used in the 
operatations of the component {note we are only processing 
type components, not operator components) into a set 
and then performing the cross-product of this set with 
the set of generic parameters. 

function getGenericsMaps ( filename : in string) return GenericsMapSet is 

the_file: file_type; 
the_prog : psdl_program; 
return_val: GenericsMapSet; 
gen_set: psdl__id_set ; 
type_set: psdl_id_set; 
temp_map: GenericsMap; 

procedure cross_product (g_set, t_set: psdl_id_set; gens_map: GenericsMap) is 
temp_set: psdl_id_set; 
g: psdl_id; 

local_map: GenericsMap; 
begin 

generics_map_pkg . assign (local_map, gens_map) ; 
if psdl_id_set_pkg . size (g_set) > 0 then 

psdl_id_set_pkg. assign (temp_set, g_set) ; 
g := psdl_id_set_pkg. choose (g_set) ; 

foreach { { the_type_id : psdl_id) , psdl_id_set_pkg . scan, (t_set) , 
generics_map_pkg. bind {g, the_type_id, local_map) ; 
psdl_id_set_pkg . remove (g, temp_set) ; 
cross_product ( temp_set, t_set, local_map) ; 
generics_map_pkg . assign (local_map, gens_map) ; 

) 

gene rics_map_p kg. recycle (temp_map) ; 

else 

generics_map_set_pkg. add (local_map, return_val) ; 
end if; 

end cross_product ; 
begin 

return_val := generics_map_set_pkg . empty; 

— parse the psdl file to create a psdl_program 
open (the_file, IN_FILE, filename); 

assign (the_prog, psdl_program_pkg . empty_psdl_program) ; 
psdl_io. get (the_file, the_prog) ; 
close (the_file) ; 

— if the program contains more than one component 

— then just get the first one since the program 

— is only supposed to have one (a requirement of 

— this implementation) . Generic maps need a method 

— that allows the user to fetch a single mapping 

— in the map. 

foreach { (c_id : psdl_id; c: psdl_component) , psdl_program_map_pkg . scan, 
(the_prog) , 

-- collect the names of the generic parameters 
foreach ( (the_id : psdl_id; the_tn: type_name), 

type_declaration_pkg . scan, (generic_parameters (c) ) , 
if eq (psdl_id_pkg . Upper_To_Lower (the_tn . name) , 
convert ( M private_type" ) ) then 
psdl_id_set_pkg . add (psdl_id_pkg . Upper_To_Lower ( the_id) , 
gen_set) ; 

end if; 

) 

— collect the types used in all the operators 
if component_category (c) = psdl_type then 
foreach { (o_id: psdl_id; o: operator), 

operation_map_pkg. scan, {operations {c) ) , 

— inputs 

foreach { {the_id: psdl_id; the_tn: type_name) , 
type_declaration_pkg . scan, (inputs (o) ) , 
psdl_id_set_pkg. add ( 
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) 



psdl_id_pkg.Upper_To_Lower (the_tn.name) , type_set) 



-- outputs 

foreach ( {the__id: psdl_id; the_tn: type_name) , 

type_declaration_pkg. scan, (outputs (o) ) , 
psdl_id_set_pkg . add ( 

psdl_id_pkg.Upper_To_Lower (the_tn.name) , type_set) 

) 



end if; 



— TODO: 

) 



need to break out of this loop so that only the 
first component is processed. 



gene rics_map_pkg . create (empty, temp__map) ; 
cross_product (gen_set , type_set, temp_map) ; 

return return_val; 
end getGenericsMaps; 

end psdl__prof ile; 

O. SIG MATCH. ADS 



— Package Spec: sig_match 



with psdl_prof ile; use psdl_profile; 
with sig_match_types ; use sig__match_types; 

package sig_match is 

procedure match_ops (query, candidate: in OpWithProf ileSeq; 
root_sn: in out SigMatchNode) ; 

procedure sigMatchStatsReset; 

procedure sigMatchStatsPut (filename : string); 

end sig_match; 



P. SIG MATCH. G 



— Package Body: sig_match 



with text_io; use text_io; 

with psdl_concrete_type_pkg; use psdl_concrete_type_pkg; 
with psdl_component_pkg; use psdl_component_pkg; 

with profile_types; use profile_types; 
with psdl_profile; use psdl_prof ile ; 
with sig_match_types; use sig_match_types; 

package body sig_match is 

f ailed_outputs : natural := 0; 
passed_outputs : natural := 0; 
failed_basics : natural := 0; 
passed_basics : natural := 0; 
duplicates: natural := 0; 
total_inputs : natural := 0; 
failed_inputs : natural := 0; 



— Function: get_basics 



-- Description: removes any user-defined types from the inputs argument, 
thereby returning a type_declaration with predefined 
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types only. 

function get_basics ( inputs : in type_declaration) return type_declaration is 
return_val: type_declaration; 
begin 

type_declaration_pkg. assign (return_val, inputs) ; 

foreach ( {the_id: psdl_id; the_tn: type_name), type_declaration_pkg . scan, 
(inputs) , 

if not is_predefined (the_tn) then 

type_declaration_pkg . remove (the_id, return_val) / 
end if; 

) 

return return_val; 
end get_basics; 



— Function: get_user_de fined 

— Description: removes any predefined types from the inputs argument, 

thereby returning a type_declaration with user-defined 
types only. 

function get_user_de fined (inputs : in type_declaration) 
return type_declaration is 
return_val: type_declaration; 
begin 

type_declaration_pkg . assign (return_val, inputs) ; 

foreach ( (the_id: psdl_id; the_tn: type_name) , type_declaration_pkg . scan, 
(inputs) , 

if is_predef ined ( the_tn) then 

type_declaration_pkg . remove ( the_id, return_val ) ; 
end if; 

) 

return return_val; 
end get_user_de fined; 



-- Function: match_basics 

-- Description: determines if the query's basic input types can match the 
candidate's basic input types given the following rule: 
Basic types: either they must match exactly or the 
query's input type must be a subtype of the component's 
input type . 

function match_basics (q_basics , c_basics : in type_declaration) 
return boolean is 
the_q_basics : type_declaration; 
the_c_basics : type_declaration; 
new_q_basics : type_declaration; 
ne w_ c _basics : type_declaration; 
found_match, found_c2, return_val: boolean; 

begin 

type_declaration_pkg . assign (new_q_basics, q_basics) ; 
type_declaration_p kg. assign (new_c_basics, c_basics) ; 



-- cannot match if query has different number of basics then 
— the candidate 

if type_declaration_pkg. size (q_basics) /= 

type_declaration_pkg. size (c_basics) then 
return false; 
end if; 



— filter out the basics that match exactly 

t yP e _ dec l ar ation_pkg. assign (the_c_basics, new_c_basics ) ; 
foreach { (q_id: psdl_id; q_tn : type_name) , type_declaration_pkg . scan, 
(q_basics ) , 

found_match := false; 
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) 



foreach ( (c_id: psdl_id; c_tn: type_name) , type_declaration_pkg . scan 
(new_c_basics ) , 
if not found_match then 

if equal {q_tn, c_tn) then 

type_declaration_pkg. remove (q_id, new_q_basics) ; 
type_declaration_pkg . remove (c_id, the_c_basics) ; 
found_match := true; 
end if; 
end if; 

-- TODO: would rather break out of the inner for loop when a 

match is found rather than do this found match stuff. 



) 

type_declaration_pkg . assign (new_c_basics, the_c_basics) ; 



— Filter out the remaining basics that can match to supertypes. 

— This is done by temporally mapping each query input type to a 

-- supertype in the candidate that is closest in the partial ordering 
-- of basic types. 

type_declaration_pkg. assign (the_q_basics, new_q_basics ) ; 
foreach ( (q_id : psdl_id; q_tn : type_name) , type_declaration_pkg. scan, 
(the_q_basics) , 
found_match false; 

type_declaration_pkg . assign (the_c_basics, new_c_basics ) ; 
foreach ( (c_id: psdl_id; c_tn: type_name), type_declaration_pkg . scan 
(the_c_basics) , 
if not found_match then 

if subtype_of (q_tn, c_tn) then 
found_c2 false; 

foreach ( (c2_id: psdl_id; c2_tn: type_name) , 

type_declaration_pkg . scan, ( the_c_basics ) , 
if not found_c2 then 

if not equal {c_tn, c2_tn) then 

if subtype_of {q_tn, c2_tn) and 

subtype_of (c2_tn, c_tn) then 
found_c2 := true; 
end if; 
end if; 
end if; 

) 

if not found_c2 then 

type_declarati on _pkg . remove (q_id, new_q_basics ) ; 
type_declaration_pkg . remove (c_id, new_c_basics ) ; 
found_match := true; 
end i f ; 
end if; 
end if; 



) 



-- if there are any basics left over than match is not possible since 
— basics cannot be matched to non-basics 

return_val := type_declaration_pkg. size (new_q_basics) - 0; 



-- recycle local variables 

type_declaration_pkg . recycle (new_q_basics) ; 
type_declaration_pkg . recycle (new_c_basics ) ; 
type__declaration_pkg. recycle (the_q_basics) ; 
type_declaration_pkg. recycle (the_c_basics) ; 

return return_val; 
end match basics; 



— Procedure : match_outputs 

— Description: This function serves two purposes: 1. to determine if 
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the outputs of the matched operations can match, and 
2. if they can match, add the type mappings to sn.V.TM. 

procedure match_outputs (sn : in out SigMatchNode; success: out boolean) is 
q_output_type, c_output_type : type_name; 
begin 

success : = true; 

foreach ( (q_op : operator; c_op: operator), op_map_pkg . scan, (sn.V.OM), 
if success then 

-- get q_op's one-and-only output type 

q_output_type := type_declaration_pkg. res_set_pkg . choose { 
type__declaration_pkg .map_range (outputs (q_op) ) ) ; 

— get c_op's one-and-only output type 

c_output_type := type_declaration_pkg. res_set_pkg . choose ( 
type_declaration_pkg.map_range (outputs (c_op) ) ) ; 

if is_prede fined (q_output_type) or 

is_predef ined (c_output_type) then 
if not subtype_of (c_output_type, q_output_type ) then 
success := false; 
end if; 

elsif type_map_p kg .member (q_output_type, sn.V.TM) then 
if not equal (c_output_type, 

type_map_pkg. fetch (sn.V.TM, q_output_type) ) then 
success := false; 
end if; 

else 

type_map_pkg.bind(q_output_type, c_output_type , sn.V.TM); 
end if; 
end if; 

) 

end match_outputs; 



— Procedure: match_inputs 

— Description: 

procedure match_inputs ( root_sn : in out SigMatchNode; success: out boolean) is 

procedure match (q_inputs, c_inputs: in type_declaration; 

root_sn: in out SigMatchNode; success: out boolean) is 
new_q_inputs, new_c_inputs : type__declaration; 
temp_q_inputs, temp_c_inputs : type_declaration; 
ci: type_name; 
temp_sn: SigMatchNode Ptr ; 
temp_id: psdl_id; 
found_temp_id : boolean; 
got_first_qi : boolean; 
return_val: SigMatchNode; 
begin 

return_val := createSigMatchNode; 
sigMatchNodeAssign (return_val, root_sn) ; 

type_declaration_pkg. assign (new_q_inputs, q_inputs) ; 
type_declaration_pkg. assign (new_c_inputs, c_inputs) ; 
success := true; 

foreach { (q_id: psdl_id; qi: type_name), 

t yP e __ dec l ar 3tion_pkg . scan, (q_inputs) , 
if success then 

if type_map_pkg .member (qi, root_sn . V. TM) then 
ci := type_map_pkg. fetch (root_sn. V.TM, qi); 

— if the current query input type is already mapped 

— then make sure it is mapped to an existing type in 

— the candidate's inputs. Note to test this we must 

— look at the type_declaration’ s range (the types) 

— not it's domain (the psdl_ids) . 

if not type_declaration_pkg. res_set_pkg .member (ci, 

type_declaration_pkg .map_range (c_inputs ) ) then 
success := false; 

else 

— remove qi from new_q_inputs 

type_declaration_pkg. remove (q_id, new_q_inputs) ; 
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— remove ci from new_c_inputs 
found_temp_id := false; 
if not found_temp_id then 

foreach ( (c_id: psdl_id; c__tn: type_name) , 

type_declaration_pkg . scan, (new_c_inputs ) , 
if equal (ci, c_tn) then 
temp_id := c_id; 
found_temp_id := true; 

-- TODO: would rather break out of for loop, 
end if; 

) 

end if; 

if found_temp_id then 

type_decla ra ti° n _pkg. remove (t e mp_id, new_c_inputs ) ; 

else 

-- if this else block gets called 
-- there is something wrong 
put_line ( "there is something wrong") ; 
success := false; 
end if; 
end if; 
end if; 
end if; 

) 

if success then 

-- got_first_qi is a cheesy way of only getting the first 

— element out of the map. Maps need a way of fetching by 

— i'th element. 
got_first_qi := false; 

foreach ( (q_id : psdl_id; qi : type_name), 

type_declaration_pkg. scan, (q_inputs) , 
if not got_first_qi then 
got_first_qi := true; 

foreach ( (c_id: psdl_id; c_tn: type_name) , 

type_declaration_pkg. scan, (c_inputs) , 
temp_sn := new SigMatchNode ' (createSigMatchNode ) ; 
sigMatchNodeAssign ( temp_sn . all, root_sn) ; 
temp_sn . expanded_for_inputs := false; 
type_map_pkg.bind(qi, c_tn, temp_sn . V.TM) ; 
type_declaration_pkg. assign (temp_q_inputs, 
new_q_inputs ) ; 

type_declaration_pkg . assign (temp_c_inputs, 
new_c_inputs ) ; 

type_declaration_pkg . remove (q_id, temp_q_inputs ) ; 
type_declaration_pkg . remove (c_id, temp_c__inputs ) ; 
match (temp_q_inputs, temp_c_inputs, temp_sn.all, 
success) ; 
if success then 

addBranch ( temp_sn, return_val); 
end if; 

) 

end if; 

) 

end if; 

sigMatchNodeAssign (root_sn, return_val) ; 
end match; 

q_inputs, c_inputs: type_declaration; 
begin 

success := true; 

foreach ( (q_op : operator; c_op: operator), op_map_pkg. scan, ( root_sn . V . OM) , 
if success then 

— Remove the input types that have already been mapped. 

type_declaration_pkg. assign (q_inputs, inputs (q_op) ) ; 
type_declaration_pkg. assign (c_inputs, inputs (c_op) ) ; 

— query 

foreach ( (the_id: psdl_id; the_tn: type_name) , 

type_declaration_pkg . scan, (inputs (q__op) ) , 
if type_map_pkg. key_set_pkg . member (the_tn, 

type_map_pkg.map_domain (root_sn. V.TM) ) then 
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— If the type was mapped make sure it was mapped to 
-- a type in the candidate operator. This is necessary 
— because inputs are mapped for one operator at a time, 
if type_declaration_pkg. res_set_pkg .member { 

type_map_pkg . fetch { root_sn . V . TM, the_tn) , 
type_declaration_pkg .map_range (c_inputs) ) then 
type_declaration_pkg . remove { the_id, q_inputs ) ; 

else 

success := false; 
end if; 
end if; 

) 



-- candidate 

f oreach { (the_id; psdl_id; the_tn: type_name), 

type_declaration_pkg . scan, (inputs (c_op) ) , 
if type_map_pkg. res_set_pkg. member (the_tn, 

type_map_pkg . map_r ange ( root_sn . V . TM ) ) then 
type_declaration_pkg . remove { the_id, c_inputs ) ; 
end if; 

) 



-- if the number of remaining inputs types for the query and 
— the candidate are not equal then the operations cannot match 

if success then 

if type_declaration_pkg. size (q_inputs) /= 

type_declaration_pkg . size (c_inputs) then 
success := false; 

else 

— if the node has already been expanded for inputs then 

— all of its operators' inputs must already be mapped 
-- otherwise the node fails. 

if root_sn . expanded_for_inputs then 

success := type_declaration_pkg . size (q_inputs) = 0; 

else 

match { get_user_de fined (q_inputs) , 

get_user_def ined (c_inputs) , root_sn, success) 

end if; 
end if; 
end if; 
end if; 

) 

end match_inputs; 



— Function: verif y_subtypes 
-- Description: 

function verif y_subtypes (root_sn : in SigMatchNode ) return boolean is 
begin 

— TODO 
return true; 
end verif y_subtypes; 



— Procedure: match_ops 

— Description: this is the main procedure for signature matching. 

Given the operations and their profiles for a query and a 
candidate, this method will return a SigMatchNode whose 
branches contain valid operation and type mappings. 

procedure match_ops (query, candidate: in OpWithProf ileSeq; 
root_sn: in out SigMatchNode) is 
return_val: SigMatchNode; 
temp_sn: SigMatchNodePtr; 
success, pruned: boolean; 

temp_query, temp_candidate : OpWithProf ileSeq; 
temp_char: character; 



169 



begin 

return_val := createSigMatchNode; 
sigMatchNodeAssign (return_val, root_sn) ; 

owp_sequenc:e_p kg. assign (temp_query, query) ; 

owp_sequence_pkg. assign ( temp_candidate, candidate) ; 

foreach ( (q_owp : OpWithProfile) , owp_sequence_pkg . scan, (query), 

f oreach ( (c_owp : OpWithProfile), owp_sequence_pkg. scan, (candidate), 
if q_owp . op_profile = c_owp . op_profile then 

temp_sn := new SigMatchNode ' (createSigMatchNode) ; 
sigMatchNodeAssign (temp_sn . all, root_sn) ; 
op_map_pkg . bind ( q_owp . op, c_owp . op, temp_sn . V . OM) ; 
if not validPairingExists (temp_sn . V.OM, return_val) then 
match_outputs ( temp_sn . all , success) ; 
if success then 

passed_outputs := passed_outputs + 1; 
if match_basics (get_basics (inputs (q_owp.op) ) , 
get_basics (inputs (c_owp. op) ) ) then 
opWithProf ileSeqRemove (q_owp, temp_query) ; 
opWithProfileSeqRemove (c_owp, temp_candidate ) ; 
match_ops (temp_query, temp_candidate, temp_sn.all) 
addBranch ( temp_sn, return_val) ; 
passed_basics := passed_basics + 1; 
else 

f ailed_basics := f ailed_basics + 1; 
end if; 

else 

f ailed_outputs := f ailed_outputs + 1; 
end if; 

else 

duplicates := duplicates + 1; 
end if; 
end if; 

) 

) 



— prune leaf nodes until all leaves are valid solutions 

pruned := true; 
while pruned loop 
pruned := false; 

sigMatchNodeAssign ( root_sn, return_val) ; 

foreach ( (leaf_snp: SigMatchNodePtr) , sig_match_node_ptr_seq_pkg . scan , 
(getLeafNodePtrs (root_sn) ) , 
if leaf_snp. validation = UNKNOWN then 
match_inputs (leaf_snp . all, success) ; 
total_inputs := total_inputs + 1; 
if not success then 

leaf_snp .validation := INVALID; 
elsif not verify_subtypes ( leaf_snp . all) then 
leaf_snp .validation := INVALID; 

else 

if sig_match_node_ptr_seq_pkg . length ( 
leaf_snp . branches) = 0 then 
leaf _snp. validation := VALID; 

else 

leaf_snp . expanded_f or_inputs := true; 
end if; 
end if; 

if leaf_snp .validation = INVALID then 

— removeBranch (leaf_snp, return_val) ; 
removeAHMatchingBranches (leaf_snp, return_val) ; 
f ailed_inputs := f ailed_inputs + 1; 
pruned := true; 
end if; 
end if; 

) 

end loop; 



— recycle local variables 
owp_sequence_pkg. recycle ( temp_jquery) ; 
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owp_sequence_pkg . recycle (temp_candidate) ; 

sigMatchNodeAssign (root_sn, return_val ) ; 
end match_ops; 

procedure sigMatchStatsReset is 
begin 

failed_outputs := 0; 
passed_outputs := 0; 
failed_basics := 0; 
passed_basics := 0; 
duplicates := 0; 
total_inputs := 0; 
failed_inputs := 0; 
end sigMatchStatsReset; 

procedure sigMatchStatsPut ( filename : string) is 
the_f ile : file_type; 
begin 

create (the_file, out_file, filename); 
put ( the_file, ’’Duplicates : ") ; 

put_line (the_file, integer ' image (duplicates) ) ; 
put (the_file, ’’Passed Output Matching: ”); 
put_line (the_file, integer ' image (passed_outputs ) ) ; 
put ( the_file, "Failed Output Matching: "); 
put_line (the_file, integer ’ image ( failed_outputs) ) ; 
put (the_file, "Passed Predefined Type Matching: "); 
put_line (the_file, integer ' image (passed_basics ) ) ; 
put (the_file, "Failed Predefined Type Matching: "); 
put_line ( the_f ile, integer ' image ( f ailed_basics ) ) ; 
put (the_file, "Total Inputs: "); 
put_line (the_file, integer ' image (total_inputs) ) ; 
put (the_file, "Failed Inputs: ") ; 

put_line (the_file, integer ' image ( f ailed_inputs ) ) ; 
close (the_file) ; 
end sigMatchStatsPut; 

end sig_match; 

Q. SIG MATCH TYPES.ADS 



— Package Spec: sig_match_types 



with text_io; use text_io; 

with psdl_concrete_type_pkg; use psdl_concrete_type_pkg; 
with psdl_component_pkg; use psdl_component_pkg; 

with generic_map_pkg; 
with generic_sequence_pkg; 
with generic_set_pkg; 
with ordered_set_pkg; 

package sig_match_types is 



-- Types 



— TypeMap 

package type_map_pkg is new generic_map_pkg ( 
key => type_name, 
result => type__name, 
eq_key => equal, 
eq_res => equal, 
average_size => 4); 

subtype TypeMap is type_map_pkg .map; 

procedure typeNamePut ( the_tn : type_name) ; 
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procedure typeMapPut is new type_map_pkg . generic_put ( 
key_put => typeNamePut, res_put => typeNamePut); 

procedure typeMapFilePut is new type_map_pkg . generic_f ile_put ( 
key_put -> typeNamePut, res_put => typeNamePut) ; 



— OpMap 

package op_map_pkg is new generic_map_pkg ( 
key => operator, 
result -> operator, 
eq_key => eq, 
eq_res => eq, 
average_size => 4); 

subtype OpMap is op_map_pkg . map; 

procedure opPut (the_op : operator); 

procedure opMapPut is new op_map_pkg . generic_put ( 
key_put => opPut, res_put => opPut); 

procedure opMapFilePut is new op_map_pkg . generic_f ile_put ( 
key_put => opPut, res_put => opPut) ; 



— SignatureMap 

type SignatureMap is record 
TM: TypeMap; 

OM : OpMap ; 
end record; 

function createSignatureMap return SignatureMap; 

procedure addTypeMapping ( tnl : in type_name; tn2 : in type_name; 
sm: in out SignatureMap) ; 

procedure addOpMapping (opl : in operator; op2 : in operator; 
sm: in out SignatureMap) ; 

function signatureMapEqual ( sml : in SignatureMap; sm2 : in SignatureMap) 
return boolean; 

procedure signatureMapPut ( sm: in SignatureMap); 



-- SignatureMapSet 

package sig_map_set_pkg is new generic_set_pkg ( 
t => SignatureMap, eq => signatureMapEqual) ; 
subtype SignatureMapSet is sig_map_set_pkg . set; 

procedure signatureMapSetPut is 

new sig_map_set_pkg . generic_put (put => signatureMapPut); 



— SigMatchNodePtr 
type SigMatchNode; 

type SigMatchNodePtr is access SigMatchNode; 

function sigMatchNodePtrEqual ( smnpl : in SigMatchNodePtr; 
smnp2 : in SigMatchNodePtr) return boolean; 

function sigMatchNodePtrLessThan ( smnpl : in SigMatchNodePtr; 
smnp2 : in SigMatchNodePtr) return boolean; 

procedure sigMatchNodePtrPut ( smnp : in SigMatchNodePtr); 
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-- SigMatchNodePtrSeq 

package sig_match_node_ptr_seq_pkg is new generic_sequence_pkg ( 
t => SigMatchNodePtr, average_size => 4); 
subtype SigMatchNodePtrSeq is sig_match__node_ptr_seq_pkg . sequence; 

function sigMatchNodePtrSeqEqual is 

new sig_match_node_ptr_seq_pkg . generic_equal (eq => sigMatchNodePtrEqual) ; 
function sigMatchNodePtrSeqMember is 

new sig_match_node_ptr_seq_pkg . generic_member (eq => sigMatchNodePtrEqual); 

procedure sigMatchNodePtrSeqRemove is 

new sig_match_node_ptr_seq_pkg. generic_remove (eq »> SigMatchNodePtrEqual); 

procedure sigMatchNodePtrSeqPut is 

new sig_match_node_ptr_seq_pkg . generic_put (put => sigMatchNodePtrPut); 



-- SigMatchNodePtrSet 

package sig_match_node_ptr_set_pkg is new ordered_set_pkg ( 
t => SigMatchNodePtr, eq => sigMatchNodePtrEqual, 

"<" => sigMatchNodePtrLessThan) ; 
subtype SigMatchNodePtrSet is sig_match_node_ptr_set_pkg . set ; 

procedure sigMatchNodePtrSetPut is 

new sig_match_node_ptr_set_pkg . generic_put (put => sigMatchNodePtrPut); 
procedure sigMatchNodePtrSetPrint ( the_set : SigMatchNodePtrSet) ; 



-- SigMatchNode 

type ValidationType is (UNKNOWN, VALID, INVALID) ; 

type SigMatchNode is record 
id: natural; 
signature_rank : float; 
semantic_rank : float; 

V: SignatureMap; 
validation: ValidationType; 
expanded_for_inputs : boolean; 
branches: SigMatchNodePtrSeq; 

end record; 

function createSigMatchNode return SigMatchNode; 

procedure addBranch (the_branch: in SigMatchNodePtr; 
the_node : in out SigMatchNode); 

procedure removeBranch (the_branch: in SigMatchNodePtr; 
the_node : in out SigMatchNode); 

procedure removeAHMatchingBranches ( the_branch : in SigMatchNodePtr; 
the_node: in out SigMatchNode); 

function sigMatchNodeEqual (smnl : in SigMatchNode; smn2 : in SigMatchNode) 
return boolean; 

function sigMatchNodeLessThan ( smnl : in SigMatchNode; smn2 : in SigMatchNode) 
return boolean; 

procedure sigMatchNodeAs sign (smnl : in out SigMatchNode; 
smn2 : in SigMatchNode); 

procedure SigMatchNode Put ( the_node : in SigMatchNode); 

procedure sigMatchNodePrint ( the_node : SigMatchNode); 

procedure generateGML (the_node : in SigMatchNode; filename: in string); 

function getLeafNodePtrs ( the__node : in SigMatchNode) return SigMatchNodePtrSeq 

function getLeafNodePtrs (the_node : in SigMatchNode) return SigMatchNodePtrSet 
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function getValidLeafNodePtrs (the_node : in SigMatchNode) 
return SigMatchNodePtrSet; 

function validPairingExists (pairing : in OpMap; the_node : in SigMatchNode) 
return boolean; 

end sig_match_types ; 



R. SIG_MATCH_TYPES.G 



— Package Body: sig_match_ types 



with text_io; use text_io; 
with ada . f loat_text_io; 

with psdl_concrete_type_pkg; use psdl_concrete_type_pkg; 
with psdl_component_pkg; use psdl_component_pkg; 

with Candida te_types; 

package body sig_match_types is 



-- Procedure: typeNamePut 

— Description: outputs the type_name ' s name 

procedure typeNamePut ( the_tn : type_name) is 
begin 

if not equal (the_tn, null_type) then 
put ( conve rt ( the_tn . name ) ) ; 
end if; 

end typeNamePut; 



-- Procedure: opPut 

-- Description: outputs the operator's name 

procedure opPut ( the_op : operator) is 
begin 

if the_op /= null_component then 
put (convert (name (the_op) ) ) ; 
end if; 
end opPut; 



— Function: createSignatureMap 

-- Description: create and initialize a SignatureMap for use. 

function createSignatureMap return SignatureMap is 
return_val: SignatureMap; 
begin 

return_val . TM := type_map_pkg . create (null_type) ; 
return_val . OM op_map_p kg . create (null_component) ; 

return return_val; 
end createSignatureMap; 



— Procedure: addTypeMapping 

— Description: binds two types together and adds them to the 

SignatureMap ' s TypeMap. 

procedure addTypeMapping (tnl : in type_name; tn2 : in type_name; 
sm: in out SignatureMap) is 

begin 

type_map_pkg . bind ( tnl , tn2, sm. TM) ; 
end addTypeMapping; 
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-- Procedure: addOpMapping 

— Description: binds two operators together and adds them to the 
SignatureMap ' s OpMap. 

procedure addOpMapping (opl : in operator; op2 : in operator; 
sm: in out SignatureMap) is 

begin 

op_map_pkg.bind (opl, op2, sm.OM}; 
end addOpMapping; 



— Function: signatureMapEqual 

function signatureMapEqual (sml : in SignatureMap; sm2 : in SignatureMap) 
return boolean is 

begin 

return type_map_pkg . equal { sml . TM, sm2.TM) and 
op_map_pkg. equal (sml . OM, sm2 . OM) ; 
end signatureMapEqual; 



— Function: signatureMapPut 

procedure signatureMapPut ( sm: in SignatureMap) is 
begin 

put ( "OM: "}; 
opMap Put (sm.OM) ; 
put ( ” | TM: "); 
typeMapPut (sm. TM) ; 
end signatureMapPut; 



— Function: sigMatchNodePtrEqual 

function sigMatchNodePtrEqual (smnpl : in SigMatchNodePtr; 
smnp2: in SigMatchNodePtr) return boolean is 

begin 

return sigMatchNodeEqual (smnpl . all, smnp2.all); 
end sigMatchNodePtrEqual; 



— Function: sigMatchNodePtrLessThan 

function sigMatchNodePtrLessThan ( smnpl : in SigMatchNodePtr; 
smnp2 : in SigMatchNodePtr) return boolean is 

begin 

return sigMatchNodeLessThan (smnpl . all, smnp2.all); 
end sigMatchNodePtrLessThan; 



-- Procedure: sigMatchNodePtrPut 

procedure SigMatchNodePtrPut ( smnp : in SigMatchNodePtr) is 
begin 

s igMatchNode Put (smnp . all) ; 
end sigMatchNodePtrPut; 



-- Function: sigMatchNodeEqual 

function sigMatchNodeEqual (smnl : in SigMatchNode; smn2 : in SigMatchNode ) 
return boolean is 

begin 

if smnl . signature_rank /- smn2 . signature_rank then 
return false; 
end if; 

if smnl . semantic_rank /= smn2 . semantic_rank then 
return false; 
end if; 
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if smnl . validation /- smn2 . validation then 
return false; 
end if; 

if smnl . expanded_for_inputs /= smn2 . expanded__for_inputs then 
return false; 
end if; 

if not signatureMapEqual (smnl . V, smn2.V) then 
return false; 
end if; 

return sigMatchNodePtrSeqEqual (smnl .branches, smn2 .branches) ; 
end sigMatchNodeEqual; 



— Function; sigMatchNodeLessThan 

function sigMatchNodeLessThan (smnl : in SigMatchNode; 
smn2 : in SigMatchNode) return boolean is 

begin 

if smnl . signature_rank > smn2 . signature_rank then 
return true; 

— the following test for less-than is just being paranoid 

— about potential float equality problems 

elsif smnl . signature_rank < smn2 . signature_rank then 
return false; 

elsif smnl . semantic_rank > smn2 . semantic_rank then 
return true; 

-- the following test for less-than is just being paranoid 
-- about potential float equality problems 
elsif smnl . semantic_rank < smn2 . semantic_rank then 
return false; 

else 

return smnl. id < smn2.id; 
end if; 

end sigMatchNodeLessThan; 



— Procedure: sigMatchNodeAssign 

procedure sigMatchNodeAssign (smnl : in out SigMatchNode; 

smn2 : in SigMatchNode) is 
begin 

smnl . signature_rank := smn2 . signature_rank; 
smnl . semantic_rank := smn2.semantic_rank; 
smnl .validation :- smn2 .validation; 

smnl .expanded_for_inputs := smn2 . expanded_for_inputs; 
type_map_pkg . assign ( smnl . V . TM, smn2 . V. TM) ; 
op_map_pkg . assign (smnl . V.OM, smn2 .V.OM) ; 

— TODO: might have to do the deep copy myself here 
rather than call assign 

sig_match_node_ptr_seq_pkg. assign (smnl .branches , smn2 .branches) 
end sigMatchNodeAssign; 



— Procedure: sigMatchNodePut 

procedure sigMatchNodePut ( the_node : in SigMatchNode) is 
begin 

put ( " (Signature Rank: " ) ; 

if the_node . signature_rank - candidate_types . RANK_UNKNOWN then 
put ( "unknown" ) ; 
else 

ada . float_text_io . put (the_node . signature_rank, 1 , 2 , 0) ; 
end if; 
put ( ” | ’Mr- 

put (" (Semantic Rank: "); 

if the_node . semantic_rank = Candida te_type s . RANK_tJNKNOWN then 
put ( ’’unknown" ) ; 

else 

ada . f loat_text_io .put ( the_node . semantic_rank, 1 , 2 , 0); 

end if; 
put ( ” | ” ) ; 
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case the_node . validation is 

when UNKNOWN => put ( "Validation Unknown"); 
when VALID => put ( "Valid" ) ; 
when INVALID => put ( "Invalid" ) ; 
end case; 
put ( " | " ) ; 

if the_node . expanded_f or_inputs then 
put ( "Expanded" ) ; 
else 

put ( "Not Expanded" ) ; 
end if; 
put ( " | "); 
put ("Op Map : ") ; 
opMapPut (the_node .V.OM) ; 
put (" | "); 
put ("Type Map: "); 
typeMapPut ( the_node . V . TM) ; 
put ( " | "); 
put (" (Branches : " ) ; 

sigMatchNodePtrSeqPut (the_node .branches) ; 
put ("}") ; 
put (") ") ; 
new_line; 

end sigMatchNodePut ; 



— Procedure: sigMatchNodePrint 

procedure sigMatchNodePrint (the_node : SigMatchNode) is 
begin 

put(" Signature Rank: ") ; 

if the_node . signature_rank = candidate_types .RANK_UNKNOWN then 
put ( "unknown" ) ; 
else 

ada . f loat__text_io .put (the_node . signature_rank, 1 , 2, 0); 
end if; 
new_line ; 

put(" Semantic Rank: "’) ; 

if the_node . semantic_rank = candidate_types . RANK_UNKNOWN then 
put ( "unknown" ) ; 
else 

ada . f loat_text_io .put (the_node . semantic_rank, 1 , 2 , 0); 
end if; 
new_line; 
put ( " " ) ; 

case the_node -validation is 

when UNKNOWN => put ( "Validation Unknown"); 
when VALID => put ( "Valid" ) ; 
when INVALID => put ( "Invalid" ) ; 
end case; 
put ( " , " ) ; 

if the_node . expanded_f or_inputs then 
put_line ( "Expanded" ) ; 
else 

put_line ( "Not Expanded" ) ; 
end if; 

put(" Op Map: "); 

opMapPut ( the_node . V . OM) ; 
new_line; 

put ( " Type Map : " ) ; 

typeMapPut ( the_node . V . TM) ; 
new_line ; 

put(" Branches: "); 

sigMatchNodePtrSeqPut (the_node .branches) ; 
new_line; 

end sigMatchNodePrint; 



— Function: createSigMatchNode 

— Description: create and initialize a SigMatchNode for use. 

Note, a unique node id is maintained to facilitate 
sorting when two nodes have equal signature and 
semantic ranks. 
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unique_node_id : natural := 0; 

function createSigMatchNode return SigMatchNode is 
return_val: SigMatchNode; 
begin 

return_val . id := unique_node_id; 
unique_node_id := unique_node_id + 1; 

return_val . signature_rank := candidate_types . RANK_UNKNOWN; 
return_val . semantic_rank := candidate_types . RANK_UNKNOWN; 
return_val .validation ;= UNKNOWN; 
return_val . expanded_for_inputs := false; 
return_val.V := createSignatureMap; 

return_val .branches := sig_match_node_ptr_seq_pkg . empty; 
return return_val; 
end createSigMatchNode; 



— Function: addBranch 

-- Description: add a branch (a child SigMatchNode) to the SigMatchNode. 

A branch represents a superset of the node it belongs to. 
What this really means is the branch node contains all the 
type and operator mappings plus of the node it belongs to 
plus more. 

procedure addBranch (the_branch : in SigMatchNodePtr ; 
the_node : in out SigMatchNode) is 

begin 

sig_match_node_pt r_seq_pkg . add ( the_branch, the_node .branches ) ; 
end addBranch; 



— Function: removeBranch 
-- Description: 

procedure removeBranch (the_branch : in SigMatchNodePtr; 
the_node : in out SigMatchNode) is 

begin 

sigMatchNodePtrSeqRemove (the_branch, the_node .branches) ; 
end removeBranch; 



— Function: removeAllMatchingBranches 
-- Description: 

procedure removeAllMatchingBranches ( the_branch : in SigMatchNodePtr; 
the_node: in out SigMatchNode) is 

begin 

sigMatchNodePtrSeqRemove ( the_branch, the_node . branches ) ; 
foreach( (branch: SigMatchNodePtr), sig_match_node_ptr_seq_pkg. scan, 
( the_node . branches ) , 

removeAllMatchingBranches (the_branch, branch. all) ; 

) 

end removeAllMatchingBranches; 



— Procedure: generateGML 

— Description: generate a GML file to graphically represent the 

SigMatchNode ’ s relationship with its branches. 

procedure generateGML (the_node : in SigMatchNode; filename: string) is 
id: natural := 0; -- unique ID counter 

the_id: natural; — place holder for call to put_node_gml 
gml_file: file_type; 

function new_id return natural is 
begin 

id := id + 1; 
return id; 
end new id; 
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procedure put_node_gml ( sn : in SigMatchNode; my_id: out natural) is 
child_id: natural; 
begin 

my_id := new__id; 

put ( gml file , "node [ id " ); 

put (gml_file, integer ' image (my_id) ) ; 
put (gml_file , " label " " " ); 
opMapFilePut (gml_f ile, sn.V.OM); 
put_line (gml_file, 
typeMapFilePut (gml_file, sn.V.TM) ; 
put_line (gml_file , "\"); 
case sn. validation is 

when UNKNOWN => put (gml_f ile , "Validation Unknown"); 
when VALID => put (gml_file, "Valid"); 
when INVALID => put (gml_file, "Invalid"); 
end case; 

put_line (gml_file, "\"); 
if sn. expanded_for_inputs then 
put (gml_file, "Expanded"); 
else 

put (gml_file, "Not Expanded"); 
end if; 

put_line (gml_file, """ ]"); 

— recursively call put_node_gml for each of its branches 
foreach( (branch: SigMatchNodePtr ) , sig_match_node_ptr_seq_pkg . scan 
(sn. branches) , 

put_node_gml (branch. all, child_id) ; 

— make the edge to the branch 

put (gml_file, "edge [ id "); 

put (gml_file, integer ' image (new_id) ) ; 

put (gml_file, " source "); 

put (gml_file, integer ' image (my_id) ) ; 

put (gml_file, " target "); 

put (gml_file, integer ' image (child_id) ) ; 

put_line (gml_file, " ] ") ; 

) 

end put_node_gml ; 
begin 

create (gml_file, out_file, filename); 
put (gml_file, "graph [ id "); 
put (gml_file / integer ' image (new_id) ) ; 
put_line (gml_file, " directed 1"); 
put_node_gml (the_node, the_id) ; 
put_line (gml_file, "]"); 
close (gml_file) ; 
end generateGML; 



-- Function: getLeafNodePtrs 

— Description: collect the leaf nodes of the_node into a sequence. 

function getLeafNodePtrs (the_node : in SigMatchNode) 
return SigMatchNodePtrSeq is 
return_val: SigMatchNodePtrSeq; 

procedure processNode (smnp: in SigMatchNodePtr) is 
begin 

if sig_match_node_ptr_seq_pkg. length (smnp. branches) = 0 then 
sig_match_node_ptr_seq_pkg .add (smnp, return_val) ; 
return; 
end if; 

foreach( (branch: SigMatchNodePtr) , sig_match_node_ptr_seq_pkg . scan 
(smnp . branches) , 
processNode (branch) ; 

) 

end processNode; 
begin 

return_val := s ig_match_node_ptr_seq_p kg . empty; 

foreach( (branch: SigMatchNodePtr), sig_match_node_ptr_seq_pkg . scan, 
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{the_node .branches) , 
processNode (branch) ; 

) 

return return_val; 
end getLeafNodePtrs; 



— Function: getLeafNodePtrs 

— Description: collect the leaf nodes of the_node into a set. 

Note the set will keep duplicates out. 

function getLeafNodePtrs (the_node : in SigMatchNode) 
return SigMatchNodePtrSet is 
return_val: SigMatchNodePtrSet; 

procedure processNode {smnp : in SigMatchNodePtr) is 
begin 

if sig_match_node_ptr_seq_pkg . length ( smnp . branches) - 0 then 
sig_match__node_ptr_set_pkg . add (smnp, return_val) ; 
return; 
end if; 

foreach( (branch: SigMatchNodePtr) , sig_match_node_ptr_seq_pkg . scan 
( smnp . branches ) , 
processNode (branch) ; 

) 

end processNode; 
begin 

return_val := sig_match_node_ptr_set_pkg . empty; 

foreach { (branch : SigMatchNodePtr) , sig_match_node_ptr_seq_pkg . scan, 
(the_node . branches) , 
processNode (branch) ; 

) 

return return_val; 
end getLeafNodePtrs; 



— Function: getValidLeafNodePtrs 

— Description: collect the valid leaf nodes of the_node into a set. 

Note the set will keep duplicates out. 

function getValidLeafNodePtrs (the_node : in SigMatchNode) 
return SigMatchNodePtrSet is 
return_val : SigMatchNodePtrSet; 

procedure processNode ( smnp : in SigMatchNodePtr) is 
begin 

if sig_match_node_ptr_seq_pkg. length (smnp. branches) = 0 then 
if smnp .validation = VALID then 

sig_match_node_ptr_set_pkg. add (smnp, return_val) ; 
end if; 
return; 
end if; 

foreach( (branch: SigMatchNodePtr), sig_match_node_ptr^seq_pkg. scan 
(smnp. branches) , 
processNode (branch) ; 

) 

end processNode; 
begin 

return_val := sig_match_node_ptr_set_pkg . empty; 

foreach ( (branch: SigMatchNodePtr) , sig_match_node_ptr_seq_pkg . scan, 
(the_node .branches) , 
processNode (branch) ; 

) 

return return_val; 
end getValidLeafNodePtrs; 



-- Function: validPairingExists 

— Description: gets all the valid leaf nodes and checks if the pairing 
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exists in any of them 

function validPairingExists (pairing : in OpMap; the_node : in SigMatchNode ) 
return boolean is 
return_val: boolean; 
begin 

return_val := false; 

foreach((sn: SigMatchNodePtr) , sig_match_node_ptr_set_pkg . scan, 
(getValidLeafNodePtrs (the_node) ) , 
if not return_val then 

return__val := op_map_pkg . submap (pairing, sn.V.OM); 

-- TODO: if return_val is true then should immediately return 
but for each doesn't let me do this 

end if; 

) 

return return_val; 
end validPairingExists; 



-- Procedure: sigMatchNodePtrSetPrint 

procedure sigMatchNodePtrSetPrint ( the_set : sigMatchNodePt rSet ) is 
begin 

foreach ( (the_node: SigMatchNodePtr), sig_match_node_ptr_set_pkg . scan, 
(the_set ) , 

sigMatchNodePrint ( the_node . all) ; 
put_line ( "%%End_Signature%%" ) ; 

) 

put_line ( "%%End_Component%%" ) ; 
end sigMatchNodePtrSetPrint; 

end sig_match_ types; 

S. SOFTWARE BASE.ADS 



-- Package Spec: sof tware_base 



with gnat.io; 

with component_id_types; use component_id_types; 
with haase_diagram; use haase_diagram; 
with candidate_types; use candidate_types; 
with prof ile_types ; use prof ile_types ; 

with a_strings; 

package sof tware_base is 

procedure initialize ( sb_root : in string; header_filename : in string); 
procedure reinitialize ( sb_root : in string); 

function numComponents return natural; 

function numPartitions return natural; 

function numOccupiedPartitions return natural; 

procedure generateGML (gml_filename : in string); 

procedure getCandidateFilename (component_id: in integer; filename: out string 
f ilename_length : out integer); 

function prof ileFilter ( query_f ilename : in string) return CandidateSet ; 

function signatureMatch (query_f ilename : in string; 
the_candidate : in Candidate; 
srank: in float) return Candidate; 

function getProf ilelD (p : Profile) return ProfilelD; 

function getProf ile (p_id: ProfilelD) return Profile; 
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function getProf ilelDs return prof ile_lookup_table_pkg . res_set ; 
private 

-- the_component_id_map 
the_component_id_map : ComponentlDMap; 

— the_haase_diagram 
the_haase_diagram: HaaseDiagram; 

— the_prof ile_lookup_table 

the_profile_lookup_table : ProfileLookupTable; 
end software_base; 

T. SOFTWARE BASE.G 



-- Package Body: sof tware_base 



with text_io; use text_io; 

with ada . integer_text_io; — use ada . integer_text_io; 
with lookahead_pkg; 
with sb_utils; 

with a_strings; 

with psdl__concrete_type_pkg; use psdl_concrete_type_pkg; 

with component_id_types; use component_id_types; 
with haase_diagram; use haase_diagram; 
with candidate_types; use candidate_types ; 
with profile_types; use prof ile_types ; 
with psdl_profile; use psdl_profile; 
with sig_match_types; use sig_match_types ; 
with prof ile_f ilter_pkg; 
with sig_match; 

package body sof tware_base is 



— Procedure: initialize 

-- Description: reads the header file to construct the_component_id_map 
and the_haase_diagram. 

procedure initialize ( sb_root : in string; header_f ilename : in string) is 
use a_strings; 

header_file: file_type; 
comp_id: ComponentID; 
dir_name: a_string; 
sbf ile_name : a_string; 
input_line: string { 1 .. 256) ; 
line_length: natural; 
comp_id_last : natural; 
temp_comp_prof ile : Component Prof ile; 
temp_haase_node : HaaseNode; 
temp_component : Component; 
the_generics_maps : GenericsMapSet ; 
generics_mapping: GenericsMap; 
n_components : integer := 0; 
message: a_string; 

id: natural := 0; 



182 



old_start: natural : « 0; 

function new_id (start : natural) return natural is 
begin 

if start /= old_start then 
id := 0; 

old_start := start; 
end if; 
id := id + 1; 
return start + id; 
end new_id; 

begin 



— parse header file and construct the_component_id_map 

component_id_map_pkg. create (createComponent, the_component_id_map) ; 

open (header_file, in_file / header_f ilename ) ; 
while (not end_of_f ile (header_file) ) loop 
n_components : = n_components+l; 

get_line (header_f ile , input_line, line_length) ; 

ada . integer_text_io . get (input_line, comp_id, comp_id_last) ; 

— trim spaces before and after directory name 
dir_name := reverse_order (trim ( 

reverse_order (trim(a_strings . to_a ( 
input_line (comp_id_last + l . . line_length) ))))); 

— create a component for each generic_mapping 

the_generics_maps := getGenericsMaps (convert (text (dir__name & "/PSDL_SPEC" ) ) ) ; 
message := to_a(" Preparing ") & input_line ( 1 . . line_length) ; 
message : = message & " ... 

message := message & integer ’ image (generics_map_set_pkg. size (the_generics_maps) ) 
message := message & " components ... " ; 

sb_utils . Display_Message (message . s) ; 
f oreach ( (the_map : GenericsMap) , generics_map_set_pkg . scan, 

(the_generics_maps) , 
temp_component := createComponent; 

temp_component . psdl_f ilename text (dir_name & M /PSDL_SPEC" ) ; 

generics_map_pk:g. assign (temp_component . generics_mapping r the_map) ; 
component_id_map_pkg .bind (new_id (comp_id ) , temp_component , 
the_component_id_map) ; 

) 

sb_utils . Display_Message_line ( "done" ) ; 
end loop; 

close (header_f ile) ; 



— Create the Prof ileLookupTable 

the_prof ile_lookup_table := 

prof ile_lookup_table_pkg. create (DEFAULT_PROFILE_ID) ; 



-- construct haase diagram 
the_haase_diagram := createHaaseDiagram; 

— for each item in the_component_id_map, get the component’s 
-- profile and add it to the_haase_diagram 

f oreach ( (the_comp_id: ComponentID; the_component : Component), 
component_id_map_pkg . scan, (the_component_id_map) , 

message := to_a( M inserting ”) & integer ’ image ( the_comp_id) ; 
sb_utils . Display_Message_line (message . s) ; 
temp_comp_profile := getComponentProfile ( 

convert (the_component . psdl_f ilename) , the_component . generics_mapping) ; 

check if haase node with temp_comp_profile as its key 
already exists. If it does then add the component id 
— to that node rather than make a new node. 

if haase_node_map_pkg .member (temp_comp_pro file, the_haase_diagram) then 
temp_haase_node := haase_node_map_pkg . fetch (the_haase_diagram, 
temp_comp_profile) ; 



else 
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temp_haase_node := createHaaseNode ( temp_comp_profile) ; 
end if; 

addComponent { the_comp_id, temp_haase_node) ; 
addHaaseNode ( temp_haase_node, the_haase_diagram) ; 



sb_utils . Display_Message (" adding base nodes..."); 
addBaseNodes { the_haase_diagram) ; 
sb_utils . Display_Message_line ("done") ; 
sb_utils . Display_Message ( " connecting nodes..."); 
connectNodes ( the_haase_diagram) ; 
sb_utils . Display_Message_line ("done") ; 

sb_utils . Display_Message_line ( " Saving the software base search data") 

sb_utils . Display_Message {" the_component_id_map . . . ") ; 

sbfile_name := a_st rings . to_a ( sb_root) & "component_id_map.dat"; 

create (header_f ile, out_file, sbfile_name . s) ; 

set_output (header_file) ; 

component I DMapPut ( the_component_id_map) ; 

set_output (standard_output ) ; 

close (header_file ) ; 

sb_utils . Display_Message_line ( "done" ) ; 

sb_utils . Display_Message ( " the_prof ile_lookup_table ..."); 

sbfile_name := a_strings . to_a (sb_root) & "profile_lookup_table.dat"; 
create (header_f ile, out_file, sbfile_name . s) ; 

prof ileLookupTableFilePut (header_f ile, the_prof ile_lookup_table ) ; 
close (header_file) ; 

sb_utils . Display_Message_line ( "done") ; 

sb_utils . Display_Message ( " the_haase_diagram. . .") ; 

sbfile_name := a_strings . to_a ( sb_root ) & "haase_diagram.dat"; 

create ( header_f ile, out_file, sbf ile_name . s) ; 

set_output (header_file ) ; 

haaseDiagramPut (the_haase_diagram) ; 

set_output (standard_output ) ; 

close (header_f ile) ; 

sb_utils . Display_Message_line ( "done" ) ; 
end initialize; 



procedure reinitialize ( sb_root : in string) is 
use a_strings; 

header_file: file_type; 
comp_id: ComponentID; 
dir_name: a_string; 
sbf ile_name : a_string; 
input_line: string (1 .. 256) ; 
line_length: natural; 
comp_id_last : natural; 
temp_comp_prof ile : ComponentProf ile ; 
temp_haase_node : HaaseNode; 
temp_component : Component; 
the_generics_maps : GenericsMapSet ; 
generics_mapping : GenericsMap; 
n_components : integer := 0; 
key_id, res_id: psdl_id; 

id: natural := 0; 
old_start: natural 0; 
begin 



-- parse header file and construct the_component_id_map 

component_id_map_pkg . create (createComponent, the_component_id_map) ; 

sb_utils . Display_Message { " Retreving the_component_id_map . . .") ; 
sbfile_name := a_strings . to_a (sb_root) & "component_id_map.dat"; 
open (header_f ile, in_file, sbf ile_name . s) ; 
set_input (header_file ) ; 
while (not end_of_f ile (header_file) ) 
loop 

temp_component := createComponent; 
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sb_utils . get_char_line (input_line, line_length) ; 
ada.integer_text_io.get (input_line, comped, comp_id_last) ; 
sb_utils . get_char_line (input_line, line_length) ; 

temp_component . psdl_f ilename : = convert ( input_line ( 1 . . line_length) ) ; 
if lookahead_pkg . token /= '{' then 
lookahead_pkg . skip_char ; 

generics_map_pkg . recycle ( temp_component . generics_mapping) ; 
else 

genericsMapGet ( temp_component . generics_mapping) ; 
end if; 

component_id_inap_pkg . bind (comp_id, temp_component, the_component_id_map) 
end loop; 

set_input (standard_input ) ; 
close (header_file) ; 

sb_utils . Display_Message_line ( "done” ) ; 

-- Create the ProfileLookupTable 

the_profile_lookup_table := 

profile_lookup_table_pkg . create (DEFAULT_PROFILE_ID) ; 

sb_utils . Display_Message ( " Retreving the_profile_lookup_table . . 
sbfile_name := a_st rings . to_a (sb_root ) & "prof ile_lookup_table . dat " ; 
open (header_file, in_file, sbf ile_name . s) ; 
set_input (header_file) ; 

profileLookupTableGet (the_profile_lookup_table) ; 
set_input (standard_input) ; 
close (header_file) ; 

sb_utils . Display_Message_line ( "done" ) ; 



-- construct haase diagram 

the_haase_diagram := createHaaseDiagram; 

sb_utils . Display_Message { " Retreving the_haase_diagram. . . " ) ; 
sbfile_name := a_s t rings . to_a (sb_root) & "haase_diagram.dat"; 
open (header_file , in_file, sbf ile_name . s ) ; 
set_input (header_file) ; 
haaseDiagramGet (the_haase_diagram) ; 
set_input (standard_input ) ; 
close (header_file) ; 

sb_utils . Display_Message_line ( "done" ) ; 
end reinitialize; 



-- Function: numComponents 

-- Description: return the number of components in the software base. 

function numComponents return natural is 
return_val: natural; 
begin 

return component_id_map_pkg . size ( the_component_id_map) ; 
end numComponents; 



-- Function: numPartitions 

— Description: return the number of partitions in the software base. 

function numPartitions return natural is 
begin 

return haase_node_map_pkg . size ( the_haase_diagram) ; 
end numPartitions; 



— Function: numOccupiedPartitions 

— Description: return the number of occupied partitions in the 

software base. 
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function numOccupiedPartitions return natural is 
return_val: natural := 0; 
begin 

foreach ( (the_key: ComponentProfile; the_hn : HaaseNode) , 
haase_node_map_pkg . scan, ( the_haase_diagram) , 
if component_id_set_pkg . size {the_hn. components) > 0 then 
return_val := return_val + 1; 
end if; 

) 

return return_val; 
end numOccupiedPartitions; 



— Function: generateGML 

procedure generateGML (gml_filename : string) is 
begin 

generateGML { the_haase_diagram, gml_filename) ; 
end generateGML; 



— Function: prof ileFilter 

— Description: performs profile filtering with the PSDL specified query 

and returns an ordered set of candidates with the highest 
profile ranking first. 

Note the PSDL query must NOT contain generics. 

function prof ileFilter (query_filename : in string) return CandidateSet is 
query_profile : ComponentProfile; 
begin 

query_prof ile := getComponentProf ile (query_filename, 
generics_map_pkg . create (empty) ) ; 

return prof ile_filter_pkg . findCandidates (query_profile, the_haase_diagram) ; 
end profileFilter; 



— Function: signatureMatch 

— Description: performs signature matching between the PSDL specified 

query and the_candidate and returns a copy of the_candidate 
with the signature_matches field set. 

function signatureMatch (query_f ilename : in string; 
the_candidate : in Candidate; 
srank: in float) return Candidate is 
q_ops, c_ops: OpWithProfileSeq; 
sn: SigMatchNode ; 
temp_snp_set : SigMatchNodePtrSet ; 
temp_component : Component; 
return_val: Candidate; 
begin 

— get the query's operators 

q_ops := getOpsWithProfiles (query_f ilename , generics_map_pkg . create (empty) ) 

— get the candidate's operators 

temp_component := component_id_map_pkg . fetch (the_component_id_map, 
the_ candidate . component_id) ; 

c_ops : = getOpsWithProfiles (convert ( temp_component . psdl_f ilename) , 
temp__component . generics_mapping) ; 

-- perform signature matching 
sn := createSigMatchNode; 
sig_match . sigMatchStatsReset; 
sig_match .match_ops (q_ops, c_ops, sn) ; 

— calculate the signature ranks 

sig_match_node__ptr_set_j?kg . assign ( temp_snp_set, getLeafNodePtrs ( sn) ) ; 
foreach ( (smnp: SigMatchNodePtr ) , sig_match_node_ptr_set_pkg . scan, 

{ temp_snp_set ) , 

smnp . signature_rank i* float (op_map_p kg . size { smnp .V . OM) ) / 
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float (owp_sequence_pkg. length (q_ops) ) ; 

— The following calculation for signature rank measures how well the 

— signature matching method works on its own. The calculation above 

— is really a mixture of profile filtering AND signature matching. 

smnp . signature_rank float (op_map_p kg. size (smnp.V.OM) ) / 

(return_val . prof ile_rank * float (owp_sequence_pkg . length (q_ops ))) ; 



) 

-- add each SigMatchNodePtr to make sure return_val's signature_matches 
— field is sorted 

candidateAssign ( return_val, the_candidate) ; 

foreach ( (smnp: SigMatchNodePtr) , sig_match_node_ptr_set_pkg . scan, 

(temp_snp_set) , 

if smnp . signature_rank > srank then 

sig_match_node_ptr_set_pkg. add {simp, return_val . signature_matches ) 
end if; 

) 

return return_val; 
end signatureMatch; 



— Function: getProfilelD 

— Description: if the profile doesn't exist then add it first then 

return its id. A new id is obtained from the global 
variable unique_profile_id. 

unique_prof ile_id : ProfilelD := 0; 

function getProfilelD (p : Profile) return ProfilelD is 
return_val: ProfilelD; 
begin 

return_val := 

prof ile_lookup_table_pkg . fetch (the_profile_lookup_table, p) ; 
if return_val = DEFAULT_PROFILE_ID then 
return_val := unique_profile_id; 
unique_profile_id := unique_profile_id + 1; 

prof ile_lookup_table_pkg. bind (p, return_val, the_profile_lookup_table ) ; 
end if; 

return return_val; 
end getProfilelD; 



— Function: getProfile 

function getProfile (p_id : ProfilelD) return Profile is 
return_val: Profile; 
begin 

return_val := 0; 

foreach ( (p: Profile; id: ProfilelD), prof ile_lookup_table_pkg . scan, 
(the_profile_lookup_table) , 
if id = p_id then 

return_val := p; 

— TODO: should return here but for each doesn’t let me 
end if; 

) 

return return_val; 
end getProfile; 



— Function: getProfilelDs 

function getProfilelDs return profile_lookup_table_pkg . res_set is 
begin 

return profile_lookup_table_pkg.map_range ( the_profile_lookup_table) ; 
end getProfilelDs; 



— Procedure to return the file name of the candidate psdl component 
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procedure getCandidateFilename (component_id : in integer; 

filename: out string; 
filename_length: out integer) is 
temp_component : Component; 

begin 

temp_component := component_id_map_pkg . fetch ( the_component_id_map, component_id) 
filename_length := temp_component.psdl_filename.len; 
for i in 1 . . filename_length loop 

filename(i) := temp_component .psdl_filename . s (i) ; 
end loop; 

end getCandidateFilename; 
end software base; 
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